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Vorwort 

Lieber Colour-6enie Freund! 

Das Colour-Genie erfreut sich immer groperer Beliebtheit- So 
ist es auch nicht verwunder I ich. dap immer Mieder der Ruf nach 
einem Such laut Murde, das speziell fiir das Colour-Genie ge- 
schrieben wurde und das auf die vielfaltigen Mogl ichkei ten des 
Colour-Genies eingeht. 

Nun, das Warten hat ein Ende: Vor Ihnen I iegt das "Colour-Genie 
Buch 1" ' 

Ein Buch, auT das wir stolz sind, denn es ist vollgepackt mit 
interessonten Programmen und Informot ionen und es bietet sowohl 
dem Anfanger als auch dem fortgeschri t tenen Programmierer , so- 
wohl dem Spielefreund als auch dem "ernsthaften" Anwender Pro- 
gramml ist ings und Erklarungen, die helfen, das Colour-Genie 
besser zu verstehen und besser 2u nutzen. 

Schauen Sie ruhig einmal in das Inhal tsverzeichnis auf den 
nachsten beiden Seiten, blattern Sie einmal durch das Buch und 
Sie werden sehen, wie vielfaltig der Inhalt ist. 

Wir hofTen, dap Sie Ihr Colour-Genie so vielseitig einsetzen, 
wie es seinen Mogl ichkeiten entspricht und dap Sie viel Freude 
mit Ihrem Computer haben werden. 

In diesem Sinne wunschen wir Ihnen nun viel Spap beim Lesen, 
Abtippen und ftusprobieren ' 

Kalle Braun Bonn, im August 1983 

3urgen Buchmtiller 
Frank Seger 
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2ur Gl iederung 

Wie Sie viellexcht schon aus dem Inhal tsverzeichnis ersehen 
konnten. haben wir versucht , die einzelnen Telle dieses Buches 
in eine sinnvolle Reihenfolge zu bringen, 

Zu Beginn finden Sie drei interessante Spielprogranme. die alle 
bereits auf dem 16H-Grundgerat laufen. 

Cs folgen dann die Listings zweier Spietprogramme, die mit dem 
"Colour-Compiler" complliert warden mlissen, 

Nach den Spielen folgen mehrere Programme und Er lauterungen, 
die Ihnen ein tieferes Verstandnls fiir Ihren Computer erleich- 
tern sol ten, unter anderem ein^ Kompletteh Maschinensprache- 
Monitor in Basic, der es Ihnen ermoglicht. Uber die Ebenen der 
Basicprogramraierung auf die Ebene der Maschinenprograamierung 
vorzusto^en, 

Etliche Mapitel beTassen sich mit der Programmierung eines an- 
geschlossenen Druckers - besondere Freude werden Besitzer des 
STAR-Printers DP 510/515 an den abgedruckten Programmen haben. 

Im Anhang finden Sie dann noch eine Llste der Basic-Tokens, 
eine Dezlmal -Hexadezimal Tabelle, sowie eine Liste der verfUg- 
baren TCS-Colour-Qenie Software. 



*«*j( ACHTUNG *«*K 

In den Listings entspricht das Paragraphenzeichen C§) dem 
"Hlammeraffen" (® ) , der rechts neben der <P>-Taste I iegt , und 
das grope (^ CHJ dem ftufwartspfeil i C t , der zur Exponential- 
rechnung benotigt wird. 



BUMM BUMM 



"Bumm Bumm" ist ein einf aches, jedoch sehr lustiges Telespiel 
Zwei Spieler spielen gegeneinander . Oeder Spieler hat eine 
Kanone und mup nun versuchen, seinen Qegner abzuschiepen . 
Oazu braucht man ein gewisses 6efuhl fur Ballistik, denn 
ein Schup wird durch die Eingabe des flbschupwinkels und der 
ftbschupgeschwindigkei t gesteuert . 

Dos Programiti soil hier nicht Homplett erhlart werden - 
einige interessante Teile seien jedoch erlautert: 



In Zeile 20 wird in das CRTC-Register fur Zeichen-End-Raster 
eine gePOHEfc. Dies bewirkt, dap die FQR-Darstel lung nur 
in halber Hohe erfolgt. Dabei wird der FQR-Speicher zweimal 
untereinander dargestellt. Diese doppelte Darstellung ist im 
iibrigen leider nicht vermeidbar. In Zeile 690 wird diese 
CRTC-Programmierung durch POKE 17158,1 wieder ruchgangig 
gemacht . Siehe hierzu auch ftnhang R des Handbuchs 
"Colour Basic - leicht gelernt". 



Erwihnenswert ist auch, wie der Titel "BUHM BUMM" im FGR-Modus 

gezeichnet wird. Dabei werden nicht alle Zeichen uber einzelne 

PLOTS erzeugt , sondern alle Zeichen sind in einer 5 mal 8 

Matrix codiert. Die Werte dieser Codierung stehen m den DFlTR- 

Zeilen 130 bis 160. 

Rusgelesen werden die Werte in den Zeilen 330 bis 430. 

Die wichtigste Zeile in dieser Routine ist Zeile 380. 

Hier wird gepriift, ob das Bit. angegeben durch Variable B, 

in dein aus der ORTA-Zeile gelesenen Wert A gesetzt ist oder 

nicht. Dazu wird mit den Zweierpotenzen 1 bis 16 verglichen, 

die in RCO) bis RC4) gespeichert sind Csiehe Zeilen 

60 bis lOO) . 

Analog sind in den DRTR-Zeilen 170 bis 260 die Werte fiir 

die Ziffern O bis 8 gespeichert, die in der Winkel- u. 

Geachwindigkeitseingabe benotigt werden. 



FUr Patrioten sei hier noch erklart, wie das Oeutschlandl ied am 
Ende des Programms erzeugt wird. Notig hierzu sind die DRTA- 
Zeilen 110 bis 120 und der Programmtei I von Zeile 2510 bis 2530 
und weiter von 2580 bis 2610. Ein Sprung auf Zeile 2510 spielt 
das Deutschlandl ied ab. Zeile 2S40 bis 2570 dienen nur dazu, 
den Namen des Siegers in alien Farben leuchten zu lassen. darum 
kSnnen diese Zeilen wegge lassen werden. 



10 FCLS 

20 POKE in 58,0 

30 FQR 

40 DEFINTA-CE-V 

SO D1MZC9,4) 

60 A=128 

70 F0RL=7T00STEP-1 

80 ACLJ«l=1 

90 ft=A/2 

100 NEXTL 

1 1 DATA3 ,1,3,1,3,1,3.2,3,3.3,3,3,2.3,2,3.4,3,4,3.3,3,3,3,2,2,7,3,1,3, 

1.3, 6, 3, 6, 3, 5, 3, 5, 3, 4, 3, 4, 3, 3. 3, 3, 3, 2, 3, 2, 3, 3, 3, 1,3, 5, 3, 5, 3, 5, 3, 5 

120 DATfl4, 1,4. 1,4, 1.3. 7. 3. 7. 3. 6. 3. 5. 3, 5, 3, 6, 3, 6, 3, 6, 3, 5, 3, 5, 3, 4. 3, 3, 3. 

3.3.2,3,2,3,3,3,4,3,5,3,6,3,4,3.2,3,1,3.1,3,3,3,2,3,1,3,1,3.1 

130 DATA30. 17,17,30,17,17,30,0 

140 DATA17, 17,17,17,17,17,14,0 

150 DATA17,27,21,21.17,17,ir.0 

160 DAT(=tl7,2r.21 .21, 17, 17,17,0 

170 D(=IT(=I21 . 17, 17,17,21 

180 DATAl ,1,1.1,1 

190 DfiTPi21 , 1.21 .16.21 

200 DATA21 ,1,5, 1,21 

210 DATA17, 17,21,1 ,1 

220 DPlTf=l21 , 16,21 .1 ,21 

230 D(=lTftl6, 16,21 , 17,21 

240 0ATA21, 1,1,1,1 

250 Df=lTf=121 .17.21 ,17.21 

260 DRTfl21 , 17.21 .1. 1 

270 FCLS 

280 FQR 

290 RESTORE 

300 F0RL=1T063 

310 REPI0L1.L2 

320 NEXTL 

330 FORC^OTOS 

340 F0RD=0T07 

350 READR 

360 F0RB=4T00STEP-1 

370 X=28+C»38-B*5+D 

380 rFCAl=iNDACB))<>ACB)THEN430 

390 Y=D«12 

400 FC0L0UR4 

410 PL0TX,YT0X+5.YT0X+5,Y+12TOX.Y+12T0X,Y 

420 PfiINTX+1 .Y+1 .3,4 

430 NEXTB.D.C 

440 F0RL=0T09 

450 FDRM=0T04 

460 READZCL.tl) 

470 NEXTn.L 

480 CLS 

490 C0L0UR4 

500 LGR 



510 PRINT"Bei diesem Spiel, dass 2 Spieler gegen- 

520 PRlNT**einander spielen, geht es darua, die" 

530 PRINT"gegner ische Kanone abzuschiessen. " 

540 PRINT"Dazu muss jeweils der AbschusswinKel" 

550 PRINT"und die ^bschussgeschMindigMeit der'* 

560 PRINT"Harionenkugel elngegeben werden," 

570 PRINT 

580 PRINT"6ewonnen hat derjenige, der als erster' 

590 PRINT"5 Treffer hat." 

600 PRINT 

610 PRINT"Relhenfolge der Eingaben:" 

620 PRINT"Winhel : bis 90 Grad" 

630 PRINT*'Seschwindlgkeit: bis 99 Meter/sec." 

640 PRINT 

650 PRINT 

660 PRINT 

670 PRINT"Geben Sle jetzt bitte Ihre Namen ein:" 

680 PRINT 

690 P0Kei7l58,l 

700 C0L0UR5 

710 INPUT"NFIME OES 1. KANONIERS";C$ 

720 C0L0UR2 

730 INPUT"NFIIiE OES 2. KRNONIERS" sBS 

740 IFC«=B$THEN700 

750 WF=RND<2) 

760 IFS1>40RS2>4THEN2290 

770 Q0SUB1710 

780 P= 18440 

790 Z=S1 

800 Q0SUB2090 

810 P=18470 

820 Z=S2 

830 G0SUB2090 

840 IFWF=2THEN1210 

850 P= 18434 

860 G0SUB2180 

870 Wl=(=(*10 

880 P=P+1 

890 G0SUB2180 

900 W1=W1+PI 

910 P=18437 
920 G0SUB2180 
930 Gl=Fl*10 
940 P=P+1 
950 G0SUB2180 
960 G1=G1+R 
970 G0SUB1430 
980 XP=P1+11 
990 YP=Ql-8 
1000 G0SUB1570 



1010 IFV<2THENWF=0;S0SUB2350:Q0T01210 

1020 IFXO<80THENiaOO 

1030 S1=S1+1 

1040 WF=1 

1050 S0UND7,247 

1060 SOUNDS, 31 

lore SOUNDS, 16 

1080 SOUNDS,© 

1090 SOUND 12, 150 

1100 SOUND 13, 9 

1110 F0Rft=lT0100 

1120 FC0L0URRNDC3J+1 

1130 CIRCLEX0,V0.I=IAND7 

1140 S0UND6.AAND15 

1150 NEXTft 

1160 FCOLOURl 

1170 F0RPl=0T08 

1180 CIRCLEXO,VO,A 

1190 NEXTPl 

1200 G0T0760 

1210 P= 18464 

1220 G0SUB2180 

1230 W1=A*10 

1240 P=P+1 

1250 e0SUB2180 

1260 Wl=Wl+fl 

1270 P= 18467 

1280 G0SUB2180 

1290 Ql=ft*10 

1300 P=P+1 

1310 Q0SUB2180 

1320 G1=Q1+A 

1330 G0SUB1430 

1340 DX=-OX 

1350 XP=P2-1 

1360 VP=Q2-8 

1370 G0SUB1670 

1 380 I FV < 2THENWF =0 : eOSUB2350 : Q0T085O 

1390 IFXO80THEN1030 

1400 S2-S2+1 

1410 WF=.2 

1420 GOTO 1050 

1430 Wl=Wl/57 

1440 S0UND7,247 

1450 SOUNDS, 10 

1460 S0UND9,10 

1470 F0RL=31T00STeP-l 

1480 S0UND6,L 

1490 F0RA=1T04 

1500 NEXT 



1510 NEXT 

1520 S0UND7.252 

1530 SOUND 1, 1 

1540 DX=Q1/10KC0SCW1D 

1550 DY=-G1/10*SINCW1) 

1560 RETURN 

1570 S0UNDO,CVPAND255) 

1580 S0UND2,255-CYPPlND255 3 

1590 IFXP<00RYP<0THEN1640 

1600 V=CPOINTCXP, YP) 

1610 PLOTXP.YP 

1620 XO=XP 

1630 YO=YP 

1640 XP=XP+DX 

1650 YP=YP+DY 

1660 DY=DY+.l 

1670 NPLOTXO.YO 

1680 IFXP<00RYP>950RXP>159THENRETURN 

1690 IFV=0THEN1570 

1700 RETURN 

1710 FCLS 

1720 FGR 

1730 FC0L0UR2 

1740 P1=RNDC40J 

1750 P2=RNDC403 + UO 

1T60 Y-RNDC10)+50 

1770 Y=Y*5 

1780 Y1=RNDC20D-10 

1790 F0RX=1T01S9 

1800 PL0TX,Y/5T0X.96 

1810 IF(X-P1)<10IFCX-P1)>=0Q1=Y/5:G0T01840 

1820 IFCX-P2)<10IF(X-P2)>=0Q2=Y/5:Q0T01840 

1830 IFY+Y1>150IF Y+Y1<480Y=Y+Y1 

1840 IF RNDC100)<10Y1=RNDC20)-10 

1850 NEXTX 

1860 X=P1 

1870 Y=Gll 

1880 G0SUB1930 

1890 X=P2 

1900 Y=Q2 

1910 GOSUB2010 

1320 RETURN 

1930 FC0L0UR3 

1940 F0RZ=0T06 

1350 PL0TX+2,Y-2TOX+6.Y-Z 

1360 NEXTZ 

1970 FC0L0UR4 

1980 PL0TX+7,Y-4T0X+10,Y-7 

1330 PL0TX+7,Y-5T0X+10.Y-7 

2000 RETURN 



2010 FC0L0UR4 

2020 F0RZ=0T06 

2030 PLOTX+10-Z,Y-ZT0X+4,Y-Z 

2040 NEXTZ 

2050 FC0L0UR3 

2060 PL0TX+3,Y-4TOX,Y-7 

2070 PL0TX+3.Y-5TOX.Y-7 

2080 RETURN 

2090 R=INTCZ/10J 

2100 F0RY=0TO4 

2110 P0KEP+Y«40,ZCR.Y) 

2120 NEXTY 

2130 R=Z-A*10 

2140 F0RY=0T04 

2150 POKEP+YK40+l,ZCA.Y3 

2160 NEXTY 

2170 RETURN 

2180 FORY=OT0160STEP40 

2190 P0KEP+Y.42 

2200 R$=INKEY$ 

2210 IFA$> = "0"(=INDR$<="9"THEN2240 

2220 NEXTY 

2230 G0T02180 

2240 (=I=VRLCR»D 

2250 F0RY=0T04 

2260 POKEP+Y*40,2Cfi,YJ 

2270 NEXTY 

2280 RETURN 

2290 LGR 

2300 CLS 

2310 IFS1>4THENS$=C»ELSESI=B$ 

2320 PRINTS$;" HAT QEWONNEN" 

2330 G0SUB2500 

2340 RUN 

2350 S0UND7,247 

2360 SOUNDS. 15 

2370 SOUNDS, O 

2380 F0RL=0T031 

2390 FC0L0URRNDC3)+1 

2400 CIRCLEX0,Y0,LRND3 

2410 S0UND6.LFIND7 

2420 NEXTL 

2430 FCOLOURl 

2440 F0RL=0T03 

2450 CIRCLEXCYO.L 

2460 NEXTL 

2470 S0UND7,255 

2480 FC0L0UR3 

2490 RETURN 

2500 RESTORE 
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2510 FORL=1T063 

2520 READO.T 

2530 PLAVCl.O.T. 14) 

2540 F=RNDtl63 

2550 F0RM=tHFOO0TOfcHF0OO+LENCS$J 

2560 POKEM.F 

2570 NEXTM 

2580 FOBt1=lT0100-LENCS$J 

2590 NEXTM 

260O NEXTL 

2610 PLAYCl, 1 .1,0D 

2620 RETURN 
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->^ TUERME VON HANOI ^rHr 



TURM t 



TURM 2 



TURM 3 




TUrme von Hanoi ist ein bekanntes Denkspiel . Die Begeln 
werden im Programm selbst erklart. 

Eine Besonderheit fur DenhFaule: Das Program* lost das Problem 
auf Wunsch auch selbst - und zwar mit der hinlmalanzahl von 
127 Ziigen. Die Rechnerlosung ist in den Zeilen 20 und 30 
enthalten - passen Sie hier besonders auf, dap Sie sich nicht 
vert ippen. 
Programs I ist ing: 



10 CLSsCLEAR 500 :0=0; A=7!CHAR4 

20 RD$=" 12 13231231 3^121 3232 13123 12 1323 1231 3212312,32 131 32 12 13231231 3212 

132321312^12132,321313212312,321312312132312313^12132321312312132312" 

30 Z2$ = "3 132123 1232 13132 121323 12313212^123213123 124 3232131 321 2,3 12321,31 

3212,132312,3 1321 21 32321,3123 12^32312^3 132 1231232 1,3 132 12 1323123 13212" 

40 RD=1 ' 

50 PRINT"Die Scheiben des I inhen Turms muessen" 

60 PRINT"in der gleichen Reihenfolge auf der" 

70 PRINT"mittleren Scheibe liegenM" 

80 PRINT"Dabei darf niemals eine grosse Scheibe" 

90 PRINT"auf einer kleinerer liegenM" 

100 PRINTS720,"1 - Rechner spiel t":PRlNT§760, "2 

no Xl*=INKEV$!lFXl»<>*'l"flNDXlS<>"2"THEN110 

120 IFX1*»"1"THEN160 

130 FKEY1="1 

140 FKEV2-"2 

150 FKEY3="3 

160 DIMB$C3.8J.T(3,8D .FC3.7) :C1» 1:0*0 

170 POKE 16409. 70: POKE 16410, 100 

180 REM 

190 REM FARBEN 

200 REM 

210 FOR 0-1 TO 7 

220 RERD FCl,a) 



Sie spielen* 



12 



230 NEXT 

240 REM 

250 REM POSITIONEN 

260 REM 

2rO FOR C=l TO 3 

280 FOR K=7 TO 1 STEP -1 

290 READ TtCK) 

300 NEXT K 

310 NEXT C 

320 REM 

330 REM SCHEIBEN-STRING'S ERSTELLEN 

340 REM 

350 FOR C = l TO f\ 

360 B*Cl,C3=CHR$C2383+STRrNQ$CCl,202)+CHR»C24S) 

370 Cl=Cl+2 

380 NEXT C 

390 CLS 

400 QOSUB 640 

410 REM 

420 REM SCHEIBEN SETZEN 

430 REM 

440 FOR B=l TO R 

450 COLOUR FCl.BJ 

460 PRINT§647-ft*40+B*40-B,B$Cl,BJ ; 

470 NEXT: PRINT t PRINT 

480 REM 

490 REM SPIELEN 

500 REM 

510 COLOUR 1 

520 PRINT§848,*'Spielzug Nr.^O: 

530 I FX 1 1 = " 1 "THE NGOSUB 1 280 : 80T0600 

540 PRINT§768,STRIN61C4,32D ; 

550 PRINT8760."Von, Tura"; ; INPUTE 

560 IFE<10RE>3THEN550 

570 PRINT§785.STRIN6»(4,32)! 

580 PRINT§r75,"nach Turn"; s INPUTF 

590 IFF<10RF>3THEN580 

600 0=0+1: GOTO 860 

610 REM 

620 REM TUERME RUFBRUEN 

630 REM 

640 C0L0UR1:F0R B=l TO A+1 

650 PRINT§687-B«40.CHR*(225D : 

660 PRINT§700-B»40.CHR$C225); 

670 PRINTS713-B*40.CHR$C225): 

680 NEXT 

690 PRINT§680.STRING$C40,196): 

700 PRINTS285,"TURM 1 "s :PRINT§298, "TURM 2" t : PRINT931 1 . "TURM 3"; 

710 PRINT§88,STRING»C3." "J:" TUERME VON HANOI "» STRINQ$C3, " "3; 

720 RETURN 

730 REM 

740 REM FRRBEN FUER SCHEIBEN 

750 REM 

760 ORTR 14,7.12,9,6,15.3 

770 REM 

780 REM DRTAS FUER POSITIONEN 

790 REM 
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80p DATA 647.60T.567.527,487,44T,40r 

810 DATA 660,620.580.540,500,460,420 

820 DATA 673.633,533,553.513.473.433 

830 REM 

840 REM SUBROUTINE FUER SCHEIBEN-LOESCHEN 

850 REM 

860 FOR V=l TO A 

870 IF BtCE.VD > "" THEN 880 

880 NEXT V 

830 FOR VI =1 TO A 

900 IF B»CF,Vn > "" THEN 910 ELSE NEXT VI 

910 V1=V1-1 

320 IF V=8 THEN 1190 

930 IF VK7 AND B$CE.V) < B$tF,Vl + n THEN 1140 

940 FCF,Vn=tFCE.V) 

950 FOR Cal TO INTCLENC B$eE , V) n/2+l 

960 PRINT§TCE.VJ-INTCLENtB»CE.Vn/2J+C-2.CHR$C32) ; 

970 PRINT8TCE.V)- INTCLENC BSCe.VD 3 /2)+LEN{B*CE.V))-C+l,CHRSC32){ 

980 NEXT: COLOUR 1 

990 PRINTSTCe.V) ,CHR$C225) : 

1000 REM 

1010 REM SUBROUTINE FUER SCHEIBEN-SETZEN 

1020 REM 

1030 COLOUR FCF.Vl) 

1040 PRINTSTCF.Vn-INTCLENCBlCE.V) J/2) .CHR$C238J t 

1050 PRINT§TCF,Vl)+INTCLEN(B*CE.VJ)/2) ,CHR$C245D ; 

1060 FOR C»l TO INTCLEN£B$CE,Vn/2J 

1070 PRINTfiTCF. VI)- INTCLENC B»CE,VJ)/25+C,CHR$C202) ; 

1080 PRINT«T(F.Vl)-INTCLENCB»CE.V))/2) +LENCB$(E . V) ) -C-1 . CHRS C 2 

02) J 

1090 NEXT 

1100 IF F=2 AND Vl=l THEN 1250 

1110 B*CF.V1)=B$CE.V)!B$(E.V)="" 

1120 REMT1CE)=T1CE)+1:T1CF)=T1CF)-1 

1130 GOTO 510 

1140 FOR Q=l TO S 

1150 COLOUR 4:PRINT§0.**Keine grosse Scheibe auf eine kleinere I"; 

1160 FOB Ql=l TO 70! NEXT Ql 

1170 PRINT«0,STRINGSC40,128) f 

1180 NEXT QsQOTO 510 

1190 FOR Q=l TO 6 

1200 COLOUR 4jPRINT«0."Turii''E"ist leer ("s 

1210 FOR Ql=l TO 70(NEXT Ql 

1220 PRINT§0,STRING»C17.128); 

1230 NEXT Q:QOTO 510 

1240 FKEV1»"LIST";FKEY2""RUN'*:FKEV3=*'AUT0" 

1250 IF > 140 THEN 1270 

1260 CLSjPRINTe440."BRAVO-Mit"0"Zuegen geschafft f '.'PRINT: PRINT, -END 

1270 CLS:PRINT«440,"Mit"0"Zuegen geschaf f t-da fehlt die Uebung-wei 

termachen ! ":PRINTt PRINT: END 

1280 IFRD>128THENRD*=Z2S»RD-1 

1290 E-VALCNID$(RDi,R0.1)3:F-VALCMID»CRO$,RD+l.l)):RD"RD+2;RETURN 
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Schiffe versenken 

Das im folgenden gelistete Progromm ist eine fibwandlung des 
hinreichend behannten Spiels "SchiTfe versenhen". Dieses Pro- 
gromm hat zviiar nicht den hochsten Schwier igkeitsgrad, aber die 
Ausgabe des Feldes wird m i t einigen graTischen Tricks gemacht . 
ftm auf f al I igsten ist die Tatsache, das die Wellen tatsachlich 
rollen. Hier einige Worte dazu. 

In den Zeilen 1210 bis 1260 wird in dem Bereich von 409FH bis 
40E0H ein kleines Maschinenspracheprograram ini t i al is ler t . das 
bei jedem 16. ftuf ruf den gesamten Bildschirm nach Zeichen 
zwischen 128 und 159 absucht und diese urn 1 erhoht . Durch 
CALL 43D3 wird diese Routine in den Tastatur-DCB eingehangt 
(siehe Kapitel uber die DCBs). Bei jeder 16. Tastat urabf rage 
werden nun die Wellen bewegt . Mit CALL 43DA wird dies wieder 
abgeschal tet . 

Noch einige Worte zum Spielablauf; 

Zunachst stellt der Rechner seine Schiffe auf, Diesfsind; 

1 Schlachtschif f C 4 Kastchen lang ) 

2 Zerstorer C 3 Kastchen lang ) 

3 Kreuzer C 2 Kastchen lang i und 

4 Aufklarer C 1 Kastchen lang ) 

Sie honnen nun das rote Fadenkreuz. das oben links auf dem Was- 
ser erscheint . lait den 4 Pfeiltasten bewegen. Wenn Sie eine Po- 
sition erreicht haben, auf die Sie schiepen wollen, drucken Sie 
<RETURN> . Der Rechner teilt Ihnen dann unten rechts mit ob Sie 
getroffen Oder nur ins Wasser geschossen haben. Au^erdem hort 
man bei einem Treffer eine Explosion und der zerschossene Teil 
eines Schiffes erscheint. Rile Schiffe I legen waagerecht . mit 
dem Bug nach rechts. Auperdem smd Sie an Ihrer Farbe erkenn- 
bar. In der untersten Si Idschirmzei le sehen Sie standig eine 
fluswertung Ihrer bisherigen "Arbeit": die Anzahl der abgegebe- 
nen Schusse und die Anzahl der Treffer werden dort angezeigt. 

Wenn Sie alle Schiffe zerstort haben, erscheint noch eine ftus- 
wertung, wie gut Coder wie schlecht) Sie gespielt haben. 

Prograttiml ist ing: 
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10 CLS 

20 DEFINTA-Z 

30 DIMFICIO.IOI ,FC10,10KRC4D 

40 60SUB700 

50 GOTO 1280 

60 DflTAO, 8640, 30, 4620 

70 DflTfil6416, 8608. 1054,4618 

80 DfiTftO, 18480, 135. -31613 

90 0fiTft4104, 18472.391,-31742 

100 DftTftO, 4620, 16609.8608 

110 DATA 1026, 46 18, 225. 8640 

120 DATA128. -31613, 4216. 18472 

130 DATA256.-31742, 120. 18480 

140 0ATA16416, 8608, 1054,4618 

150 DATAO . 8640 , 30 , 4620 

160 DflTA4104. 18472,391.-31742 

170 DATAO, 18480, 135,-31613 

180 DATA1026. 4618. 225,8640 

190 DRTRO. 4620, 16609.8608 

200 DATA256, -31742. 120, 18480 

210 DATA128, -31613, 4216, 18472 

220 0ATA225, 16416.8865,28 

230 DATA225. 0.17280.60 

240 DATA120. 4104, -14296. 7 

250 DATAi20, 0.-28576, 15 

260 DATA30. 1026, 12810, 193 

270 DATA30 . O , 9240 , 1 95 

280 OAT A I 35, 256. 3074. 240 

290 DATA135, 128,-30330, 112 

300 DAT A225, 0.17280.60 

310 OAT A225, 16416,8865.28 

320 DATA 120, 0.-28576. 15 

330 DATA120, 4104. -14296.7 

340 DATA30 , O , 9240 . 1 95 

350 DATA30. 1026. 12810. 193 

360 DATA135. 128. -30330, 112 

370 DAT A I 35, 256, 3074. 240 

380 DATA1024. 1540, 1031. 1285 

390 DATAO. 0,4 336. -32544 

400 DATAO, 2056. 2056, 4127 

410 DATAO, 0,0. 16512 

420 DATA256, 7175, 13073.25894 

430 DATA-16384,6256. -6524.-1 1598 

440 DATA1024, 1540, 1286. 1285 

450 DATAO . , -32768 , -32672 

460 DATAO, 0,0, 4 127 

470 DATAO. 0.0. 16512 

480 DATAO. 0.0,0 

490 DATAO. 0,0.0 

500 DATAO, O, 0,0 

5t0 DATAO, 0,0.0 

520 DATAO. 0.0,0 

530 DATAO, 0,0,0 

540 DATA-2S1.- 1,-103,-1 
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550 DftTfl-128, -1,-103, -I 

560 DATfl-244,- 1.-104.-1 

570 DftTA-224. -12056. 16544.128 

580 DftTA2593 1.13094.7184.7 

590 DATA- 11566.-6606.6156,240 

600 DATfl-251. -15393. -14463.-1 

610 DfiTA-128. -30745. -28799. -8273 

620 DATPI-4852. 25065, -4208. -13 

630 DATA -I 6608. -28504. 16544. 128 

640 DATAO. 0,0.0 

650 DATAO. 0.0.0 

660 DATA6407, 16673. -32447. -127 

670 DATA12480. 1032.516.-254 

690 DATA-32383. 16705.6433,7 

690 DATA514, 1028. 12296, 192 

700 PRINT"Ich denhe mir eine Aufstellung oust 

710 F0RX=0T0511STEP2 

720 READA 

730 P0KEX-3072.AAND255 

740 P0MEX-3071.INTCA/256)AND255 

750 NEXTX 

760 Q0SUB1210 

770 F0RX=1T010 

780 PORY=.IT010 

790 FCX.VJ=0 

800 F1CX.YJ=0 

810 NEXTV.X 

820 FORZs'lTOlO 

830 REAOL 

840 F0RX=1T04 

850 R(X)=0 

860 NEXTX 

870 SX=RNDtl01 

880 SY=RND(10) 

830 F0RX=1T02 

800 1FR(XJ<>0THENNEXTX5G0T0840 

910 B"RNDC2) 

920 IFRCR)<>0THEN910 

930 RCR)=1 

940 TX-SX ~ 

950 TV=SY 

960 F0RX=1T0L 

970 IFF(TX,TY)<>0THEN890 

980 IFTX-1>0THENIFFCTX-1,TY)<>0THEN890 

990 1 FTX+1 < 1 ITHENI FFC TX+1 . TVX >0THEN890 

1 000 1 FTY- 1 > OTHEN I FFC TX , TY- DO 0THEN890 

1010 IFTY+1<11THENIFF(TX,TY+1)<>0THEN890 

1020 0NRG0SUB1130, 1150. 1170, 1190 

1030 IFTX<10RTX>100RTY<10RTY>10THEN890 

1040 NEXTX 

1050 TX*SX 

1060 TY=SY 

1070 FORX-ITOL 

1080 FCTX.TY)=tL 
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1090 ONRGOSUBl 130, 1150, 1170. 1190 

1100 NEXTX 

1110 NEXTZ 

1120 RETURN 

1130 TX=TX+1 

liao RETURN 

1150 TX=TX-1 

1160 RETURN 

1170 TV=TY+1 

1180 RETURN 

1190 TV=TY-1 

1200 RETURN 

1210 F0RX=1T066 

1220 REFtDA 

1230 P0HESiH439E+X,ft 

1240 NEXT 

1250 RETURN 

1260 DftTASe. 158,67,60,230, 15,50, 158.67, 194,227,3.229, 197.33.0,68, 126,2 
54,128,56,19,254,160.48,15,60,60,71.230,15.254.2.62,0,48,2,62.240.128, 

119.35.124,254.72.32.226,193,225,195.227.3.33.159.67.34.22.64.201,33.2 
27,3.34,22,64,201 

1270 DRTfl4,3,3,2,2,2.1,l,l,l 

1280 COL OUR 1 

1290 CLS 

1300 PRINT97,"** SCHIFFE VERSENHEN *«" 

1310 TR=0 

1320 SH=0 

1330 H1»=CHR$C160)+CHR$C1613 

1340 H2«=CHR$C 1761+CHR*C1775 

1350 B1$=CHR$C162J+CHRK163) 

1360 B2»'=CHB$C178J+CHR$(179) 

1370 PRINTS40,STRINQtC39,217D J 

1380 PRINT864.CHR$C242D : 

1390 F0RX=2T023 

1400 PRINT«X*40+24,CHR*C225) ; 

1410 NEXT 

1420 COLOURS 

1430 PRINTS146.'*Schlachtschiff"; 

1440 PRINT§186,H1»!H1»:H1«:B1$! 

1450 PRINT«226,H2$tH2$!H2$jB2$ 

1460 COL OUR 1 

1470 PRINTfi306.'*Zer5toerer"; 

1480 PRINT§346.H1$JH1$!B1$; 

1490 PRINTS386,H2$;H2$jB2$f 

1500 C0L0UR4 

1510 PRINT*466,"Kreu2er"j 

1620 PRINTS506.Hl»{eU; 

1530 PRINT§546.H2$:B2S; 

1540 C0L0UR2 

1550 PRINT S626."Ruf HI aerer*'s 

1560 PRINTf666.Bl»j 

1570 PRINT«706.B2$f 

1580 C0L0UR7 

1590 PRINTfi786.**Wasser": 

1600 CflLL43Dfi 

1610 PRINT«826, ; 

1620 F0RX=IT07 
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1630 PRINTCHRSC1283 ;CHR»C129J : 

1640 NEXTX 

1650 PRINTS866. : 

1660 F0RX=1T07 

1670 PRINTCHR»tl44)fCHR*C145J ; 

1680 NEXTX 

1690 FORX=1T010 

iroo FORY»1T010 

1710 ftD=r*H4402+Y«80+2*X-2 

1720 POKEAD-2 1504,1 

1730 POKERD- 2 1503,1 

1740 POKE AD- 2 I 464,1 

1750 POKEflD-2 1463,1 

1760 P0KEAD.128 

1770 POKERO+ 1,129 

1780 POKE ftO+40, 144 

1790 POKE flD+4 1.145 

1800 NEXTY,X 

1810 CALL43D3 

1820 X=l 

1830 Y=l 

1840 PRINT9920,SHt*'Schuesse,":TR;"Trerrer**f 

1850 CU=liH4400+Y*80+2*X 

1860 POKECU-21504,2 

1870 POKECU-21503,2 

1880 POKECU-21464,2 

1890 POKECU-21463.2 

1900 P0HECU,188 

1910 POKECU+1,189 

1920 POKECU+40,190 

1930 POKECU+4 1,191 

1940 KB*=INKEY$ 

1950 1FKB$ = '*"THEN1840 

1 960 IFF1CX,Y)<> 0THENBF=0 : Q0SUB2 1 40 : G0T02080 

1970 CALL43DR 

1980 CH = PEEKt8tH4400+826) 

1990 POKECU-21504,1 

2O00 POKECU- 2 1503,1 

2010 POKECU-21464,1 

2020 POKECU-21 463,1 

2030 POMECU,CH 

2040 P0KECU+1,CH+1 

2050 P0KECU+40,CH+16 

2060 P0KECU+41,CH+17 

2070 CflLL43D3 

2080 rFKB»=CHR»tl3)THEN2480 

2O90 IFKB» = "A'*THENIFV>1THENY=Y-1 

2100 IFKB»=CHRSC10JTHENIFY<10THENY=Y+1 

2110 IFKB»=CHR$(8JTHENIFX>1THENX-X-1 

2120 IFKBS-CHR$C9DTHENIFX<10THENX=X+1 

2130 GOTO 1840 

2140 IFX-10THENCH-168:G0T02170 

2150 IFFCX+l,Y)-OTHENCH=168sQOT02l70 

2160 CH-166 
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2170 ftD»8tH4400+Y*80+2«X 
2180 IFBF»0THEN2360 
2190 S0UN06,RN0C10)+21 
2200 S0UND7,7 
2210 SOUNDS. 16 
2220 SOUND 12, 200 
2230 SOUND 13, 8 

F0RT=1T010 

POKEAD-21504,6 

POKE AD- 2 1503, 6 

POKE AD- 2 1464, 6 

POKE AD- 2 1463. 6 

POKE AD, 164 

POKE AD+ 1.1 65 

POKE AD+40. 180 

POKE AD+41, 181 

G0SU82360 

NEXTT 

RETURN 

C0=6-F1(X,VD 

POKE AD-2 1504, CO 

P0KEA0-21503.C0 

POKE AD -2 1464, CO 

P0KEAD-21463,C0 

POKE AD , CH 

P0KEAD+1,CH+1 

POKE AD+40, CH+ 16 

P0KEAD+41.CH+17 

RETURN 

IFKBAND64=64THENIFX< lOTHENX^X+l 

GOTO 1840 

IFFltX,Y)<>0THEN1840 

FiCX,Y)=>FCX,YD 

I FFl C X , Y J =0THENPRINT«946 , "Wasser 
Q0SUB2140:TR=TR+1 



2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

F-1 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

I" 

2590 

t zu 

2600 

2610 

t ! M I 

2620 

2630 

2640 

2650 

2660 

2670 



'jeLSEPRINTfi946,**Getrof fen"j :B 



SH=SH+1 

IFTR<20THEN1840 

CALL43DA 

CLS 

COLOURl 

PRINT"Sie haben mlf ;SH s "Schuessen alle " 

PRINT"Schiffe getroffen!!" 

IFSH=20THENPRINT*'Super, Sie sind ein hervorragender^sPRINT-fldmira 



etwas ueben ! " 
Sie aber viel 



Pech" : PR I NT^gehab 



IFSH<30THENPRINT**Sie haben gute Chancen. eine See-'*:PRINT"schlach 

gewinnen" 

IFSH<50THENPRINT"Sie soil ten noch 

IFSH>49THENPRINT"Aui«ieia, da haben 

PRINT§960."Neues Spiel??? O/NJ' 

NS$=INKEY$ 

I FNS* < > "3 "ANDNSS < > "N'*THEN2630 

I FNS»= "a "THENRUN 

PR I NT 9400 . "Sc hade " 

END 
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HEKTIK - ein Komplexes Spiel programm analysiert 

"Hehtik" wird schon seit langerer Zeit fur 39.- DM verkauft 

und gehort zu den beliebtesten TCS-Spielprogrommen. 

Vielleicht haben Sie es schon, dann werden Sie beim Spielen 

sicher eine Menge Spass gehabt haben. Wahrscheinl ich haben Sie 

sich auch gefragt, wie man ein derartiges Spiel programmiert . 

Diese Frage soil nicht unbeantwortet bleiben' 

Zwei Voraussetzungen ttiupen allerdings erfullt sem: 

Ihr Colour-Qenie mup 32K RFitl haben, und Sie mussen den 

"Colour-Compiler" besitzen. Denhen Sie bitte nicht, dap wir Sie 

auf diese Weise zum Hauf des Compilers drangen mochten - 

der Compiler ist fur schnetle Videospiel -Programmierung einfach 

uner lassl ich, es sei denn Sie prcgrammieren in Maschmenspra- 

che . 

Es folgt nun das Basic-Listing (also der "Source-Code" J von 

Hektik. Wichtig ist, da(3 Sie beim Einschalten die MOD SEL-Taste 

gedruckt halten, da sonst der verfugbare Speicher nicht 

ausreicht ' 

Nach dem Listing finden Sie eine detail I lerte Erklarung des 

Programms, Bezuglich der Bedienung des "Colour-Compilers" 

mformieren Sie sich ggf. in dessen Handbuch, 

Das Basicprogramm geben Sie bitte genauso ein, wie Sie es 

hier aufgelistet finden. Die Graf ikzeichen, die im Listing 

vorkommen, geben Sie, wie in Kap, 6 des Handbuchs "Colour 

Basic - leicht gelernt" beschrieben, mit der MOD SEL-Taste 

ein."**- 

Programm I ist ing: 

10 DATh-1 ^7, -35333, - 1 £"■. -33333 

£0 DftTA-1 . -6400 . a31 . -1 

30 DATH-6t . -6400 . £31 . -1 

40 DftTA-1 5487 . -6400, 231 . -1 

50 DhTh-154S7, -15616. £31 , -1 

60 DATA-35383, -35512 . 1 £9 . -6t 

^0 DhTh-3£383 . -3851 £. 1 29 . -32333 

88 DATfte, 0,0,0 

90 DATft-32383, -32257, -32383, -32257 

100 DATA-61 69 . -256 . £55 . -61 69 

110 DATA-15487, -6400. 255 . -6169 

120 OrtTA-32383, -1 561 6 . 231 . -61 69 

130 DATA-32383 . -3251 £ 

148 DATA-32383. -3251 £ 

150 DATA-323S3, -3251 £ 

1 60 DATA0 .0.0,0 



1 95, 


-6205 


1£9, 


-15487 


1 29, 


-32383 
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1 76 
180 
1 90 
£60 
£ 1 
£20 
£16 
£'^0 
£50 
£60 
£70 
£80 
£90 
3Q0 
310 
3£0 
336 

NEX 
340 
350 

360 

NEX 
370 
380 
390 

400 

41 

488 

60 F 

430 

440 

450 

460 

470 

486 

496 

500 

, 3 

51 

.3 

520 

530 

540 

550 

560 

,0 S 

570 

580 

590 

608 

610 

6£0 

630 



DATA 

DATA 

DATh 

DATh 

DhTh 

DATA 

DhTA 

DATA 

DATA 

DATA 

DATA 

DATfH 

DATA 

DATA 

DATA 

DATA 

FOPL 

TL 

CHAP 

DATA 

.4.5 

FOPL 

TL 

POKE 

CLS 

E = £ 

GOSU 

B£ = 

GOSU 

ORK = 

POKE 

POKE 

NEXT 

FOPX 

FORY 

A = Y/' 

FORV 

POKE 



1 70£5 . 
1 "'025. 
£5S. 51 
0. 1 £73 
-3£"'04 
6 . ~£96 
-1 533 . 
-1 538 . 
1 5900. 
31800, 
-£6498 
71 68 . 1 
65£6. 6 
14336. 
-£4^05 
-24785 
=0TD£5 

£ 

769, 5 
1 4.512 
=0TO31 



-£5, 
-633 
1.1, 
6. 52 
. -32 
93 . 1 
6£64 
6£64 
1 31 
-1 32 
, 629 
4654 
1 69 . 
-254 
. 61 7 
, 617 
5 PO 



2052 
3. 1 28 



-6247, 9 
4 . -261 1 
6 
5 . 
51 

6560, 41 
, -31 492 
. 1 84^£ . 
6, -2553 
36. 1 471 
Sf 1 0020 
. 7236, 6 
-"?132.7 
^6. 1446 
4, 851 1 , 
4, 4628, 
KEL-367 



342 

3, 1 5462 



.0 

£8 

, 1 924 

3624 

8, -264^2 

6,6425 

, -1 6352 

425 

72 

0. -£647£ 

-81 59 

12308 

2, PEEKdL+l 8436) 



769, 5, 1 282 
770, 521 , 51 
POKE30720+ 



,5, 1282,5, 
4. 
L,PEEK CL+I 



769, 4 
8692> 



16409,7 P0KE16416,6 



ri£ = 3 P 
B2070 
P£ = 
B2580 
0TO38S 
1 7408+ 
X + Y - 4 
X, V 

=0TO39 
=40TO6 
£8 + £ B 
1 =6T01 
1 7488+ 



1 =1 

Q=e Q1=0 

COLOURII FORY=80TOS80 

TEP£ 

X+Y, 1 £9 POK 

96,6 POKEX+ 



:E1 7409+X+Y 
Y-4095, 6 



STEP1 
. 137 



P0KE1 8£83+X,20£ NEXTX 
80STEP1 68 
= 3 7 - Y ' 2 
6@STEP40 
y+Y1+B,1£3 P0KEY+Y1+B 



-4096 

P0KE17488+Y+Y1+A,128 P0KEY+Y1 +A-4096 

MEXTY1 , Y 

PRIHTe9£0, "PUNKTE BOMUS 

:)AE6ER ", 

PRIMTe956, ri2, 

1FT=0LETP2=P£+B£ 

S0UH07,56 SOUNDS, 16 SOUND9.0 SOUND10 

0UND1,£ S0UND3,4 SOUNDS, 2 SOUND12,10 

T=0 T2=30719 0£=3 B2=R1*500 

FORL=0TOE 

POKE31000+L,L+1 5 P0KE31 010+L, 1 

P0KE31 020+L, 1 

P0KE31 030+L, 3 

P0KE31 048+L, 32 

NEXTL 
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640 

650 

660 

670 

680 

690 

780 

71 

720 

730 

740 

750 

760 

770 

730 

790 

KEP + 

5 

800 

81 

eae 

830 

840 

7IF2 

850 

860 

S70 

1 £7 J 

«:p+4 

880 

830 

80EL 

900 

91 

920 

EP + 3 

930 

EP + 4 

940 

1*2 

950 

960 

970 

4-C1 

980 

990 

1 000 
101 

1020 
1630 

1040 



X=I9 
A = PE 
XI =0 
IFCA 
IF<A 
IFCA 
IF<A 
F=1 7 
IFI 1 
IFH1 
IFH2 
C = C + 
IFH> 
IFH1 
IFB2 
IF<A 
40 + X 

IFX + 
IFX1 
IFY1 
PI =P 
S = PE 
013 
IFZ = 
IFPE 
X = X + 
O0L 
+ X2 
IFI1 
IFH2 
SEIF 
POKE 
IFX2 
IFX2 
9.14 
IFX2 
1,14 
IFY2 



:Y=20=H=32=H1=32=H£=32=X2=1=y2=0 

EK<-193 4?:IFA=6GOTO380 

: Yl =0 

AND32>=32LETX1 =-1 GOTO710 

AND64>=64LETX1 =+1 6OTO710 

AND08>=0SLETY1 =-1 =6070710 

AND1 6>=16LETV1=+1 

403+X+¥*40 

< 1 6OTO750 

=238LETH1 =32ELSEIFH1=24 5LETH1=32 

=238LETH2=32ELSEIFH2=245LETH2=3£ 

1 -■ CI =tC-^2>AND1 

1 43IFH< 146G0T01 1 26 

M43IFHK146GOTO1120 

>0LETB2=B2-1 

AND127><>0POKEP,HPOKEP+40,H1:PO 

2,H2=POKEP-£1504. 15:P0KEP-21464. 1 

XI =0LETX1=0ELSEIFX+X1=39LETX1 =0 

<>0LETX2 = X1 = Y2 = 

< >0LETY2 = V1 : X2 = 

+Y1*40 P=P+X1 

EK<:P + 80> ■■ IFS<>128IFZ<>129IFZ<>13 

5IF2<>143IF2<>202LETX1=0 

135GOTO1990ELSEIF2=143GOTO19 90 

EK<P1+40><>1£8LETY1=0 

XI =Y=Y+Y1 =P=1 74 08+X+Y*40= IF<AAND 

ETH = PEEK(:P> = H1=PEEK<P + 40> = H2 = PEEK 

> 

<ieOTO900 

=238GOSUB18S0ELSEIFH2=245GOSUB13 

H2=230GOSUB1 880 

P-21504,7:POKEP-21464.8 

<>0IFH2=3£POKEP-21464+X2. 

=-1POKEP,153^POKEP+40, 158+C1 =POK 

8 

= +1 POKEP, 152 = POKEP + 40, 1 50 + C1 =POK 

6 

<>0POKEP, 155+C1*E=POKEP+40. 154+C 



IF<AAMD128><>1£8G0T 01079 

IFX2=0GOTO1050 

SOUNDS. 16=SOUND13,9=SOUND0 



POKEP+40+X2,148-<X2+1 >+C1 

IFC1 =0GOTO1 070 
P=P+80+X£=Z=PEEKCP> 
IFPEEK<-1920)=1 GOT 01 050 
IFS>1 28IFZ< 135P0KEP,Z+1 = 
IFZ>136IF2< 143P0KEP. 2+1 = 
GOTO1070 



= S0UMD1 



G0T01 070 
G0T01 070 
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1 S50 
1 86Q 
1 078 

^eeE 

1830 
1 890 
*" i : 
1 100 

= GOT 

1110 

1 1 £0 
L, 16 
I 1 38 
^£ = S 



1 -^0 
158 
160 
1 78 
1 S0 
190 

1200 

1 21 8 
*£56 
1220 
1238 
12-^0 
1250 
1260 
1 270 
"H E 
1230 
1290 
1308 
1 31 8 
N = 0T 
1 328 
1 330 
13t0 
n= " 
1350 
♦ (I-* 
1 360 
1 370 
1380 
1390 
1 480 
141 
1 420 
1430 
1 440 
= 32E 
1 450 
1460 
1 470 
1 480 



IFZ 
IFZ 
Q1 = 

LSEF 
IFZ 
COL 

PRIN 
IFT 

0420 
SOT 
SOU 

= NEX 
FOR 

OUHD 
SOU 

ri2= 

G2 = 
GOT 
IFR 
R2 = 
FOR 
IFF 

<P2G 
HEX 
GOT 
SOU 
SOU 
CLS 
FOR 
U E 
PRI 
SOU 
«EJ< 
FOR 

09 
POK 
NEX 
PRI 



>1 29 

>1 37 

Q1 +1 

0RI1 = 

2=1 L 

OURR 

Te92 

-1=E 

ELSE 

0650 

MD7, 

TL :S 

I1=1T 

4, M^ 

MD7, 

Me-1 

8 

0420 

2>P2 

P2 

L = 0T 

EEK< 

0T01 

TL 

0380 

ND7. 

ND6. 



IFZ<13 
IFZ< 14 
= I F Q 1 > 
1T0388 
ETZ2=e 
HD< 1 6> 
7 , P 2 ; " 
LETT=0 
428 



6P0KEP,Z-1 •- 
4P0KEP. Z-1 ■- 
«:6-R1 >>'£LET 
■- NEXTM 
: eOTOI 1 20 
= PRINTei 4. " 
0" i ■■ PRINTeS 
:R1=R1 +1 : IF 



56 •- SOU 

0UMD12 

O3180S 

4 : NEXT 

255 

= IFM2 = 0GOTO1 180 



ND6,0:FORL= 
,90=SOUND1 3 
TEP5 = SOUHD0 
M 



G0T01 070 
GOTO1070 
Q1=0 -■ GOSUBl 



** HEKTIK * 
42.B2;"0 "} 
E<5LETE=E+1 



STO10: SOUND 
, PI ■■ S0UND2, M 



6OTO1200 

08 

31 108+L*10>+PEEK<31 109+L*10> 
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7 = FORM 
0=SOUN 



= 8TO10 = SOUH 
D12, 108=SOU 



DM, 1 6 ; NEXTM 
ND1 3.9 



M = 8T031 =C0L0URRND<:i6) = PRI NT 62 18, 

R REKORD"; 
NTe250, " ^^^^^^^^^^^^^^^^" ) 
ND6, M 
TM 
11 = 31 190TO<31100 + L*10>STEP-10 = FOR 



EM + H, PEEK<ri + N-18> 

TN = NEXTM 

NTe568, "Geben Sie Ihr 



PRIMTe697, " 



PR 



en Namen ei 
INTe697. CHR 



P=31100+L*10=GOSUB£510 
POKE31108+L*10,P2AND2 55 
P0KE31 109 + L*10,P2-''256 
6OTO380 

FORL=31088TO31000+E 

V=PEEK<L>=W=PEEK<L+10>=Q=PEEK(L+40> 
IFV=2556OTO1660 
IFQ>145IFQ<160LETZ2=1 = RE 
IFI1<1IFQ=238LETQ=32ELSE 
LSEIFQ=230LETQ=3 2 
V1=PEEK(L+£8>-2=W1=PEEK< 
POKE17488+V+W*40,Q 
POKEV+W*40-4096, 15 
IFQ>128IFQ<144P0KEV+W*4 0-4096, 6 



TURN 
IFQ=245LETQ 

L+30>-2 



24 



l-^Se IFV + Vt=0POKEL + £0,3ELSEIFV + V1=39POKE 

L+ee. 1 

1500 A=PEEK<17448+V+U*40> B=PEEK C 1 7368+ V 

+ W « 4 9 > 

1510 IFW=1POKEL + 30,3ELSEirW = £1POKEL + 30. 1 

1528 IFA=135LETQ=129=GOTO174 0ELSEIFA=143 

LETQ=1 37 ■- GOTOl 740 

1530 IF l.J1 = 1IFA=128LETV 1=0 GOTOl 550ELSEIF 

ft<>£0eiFA>145LETV1=0= GOTOl 550 

1540 IFW1=1LETU1=0=IFQ=1£8POKEL+£0.RNDC£ 

>UR1 

1550 IFU1=-1 IFB=1£8LETV1=0: GOTOl 570ELSEI 

FB>145LETV1=0GOTU1570 

1560 IFW1=-1LETUi1=0= IFQ=1£8POKEL + £0,RND<: 

£>0R1 

1 570 

1 580 

1 590 

1 600 

1 61 
16£0 
L + 40> 
1 630 
1 640 
L + 40 
1650 
1 €€0 
1 670 



V = V + V1 = U = l«) + W1 

POk:EL + 40,PEEK<174 08 + V + Ui*49> 

POKE174 08+V+W*4 0, 1 43+RHD(£) 

POKEV+U*40-4836,5 

POKEL, V^ POKEL+10. U 

IFPEEK<L + 40)<144GOTO1660ELSEIFPEEK<: 

>1 4560T01 660 

FORri = 31000TO31000 + E 

IFL< >MIFPEEKCM>=VIFPEEK<ri+10>=WPOKE 

PEEK<M+40> 

MEXTM 

N E X TL 

T£=T£+1 : IFT£=3075£LETT£=307£0= IFO£< 
6LET0£=0£+1ELSE0£=3 
1680 A=PEEKCT£>PLftyC3.O£.A,10):IFft<>0SO 

0SOUNDie,16=SOUN 013,9 

IFI=1 6OTO1S40 

IFRNDC1000XR1GOTO17E0 

RETURN 

I 1 =50= 1 = 1 

RETURN 

IFRND<100><<R1 * 18) GOTO I96 

SOUNDS, 15 = S0UHD3,£ 

P = V + liJ*48 + 17448 = Q1=6:F0RM = PT018£88ST 



UN08 
1 690 

1700 

1710 

1 7£0 

1 730 

1 740 

1 750 

1 760 

EP40 

1770 POKEM^Q : P0KEM-E1 504. Q1 

= Q1=PEEK<M-£1464> = POKEM + 40, 

4 5 

1780 SOUND£.. <t1-'3>AND£55 

1790 FORN=1TO308=NEXTN 

1800 MEXTI1 = POKEM, Q = POKEri-21504 

1810 POKEL, £55 = T=T+1 

18£0 SOUNO9.0 

1830 P£=P£+E*5=60T01 660 

1840 IFI1 >0LETI1=I 1 -1 

1850 IFI1=0 PRINTe699," " j = I =0 = RETURN 

I860 IF<IlftND1> = 1 PRINTe699, " • " J ELSE P 

RiNTe639, "mm" i 

1870 RETURN 

1880 1=0= PRINTe698, " 1 000" J 

1890 B*=CHR*U>+CHR*<3>+CHR*C5>+CHR*<4>+ 

CHR*C6> + CHRt<5>+CHR$<5>+CHR$<1 )+CHRS<1 :• 

1900 FORL = 0TO8 : C = PEEK<:3075£ + L> 

1 91 PLAY<3, 4. C, 14) 

19£0 F0RM=1 TO900= HEXTM,L 



= Q = PEEK<l1 + 40> 
1 44 = PGKEM-E1 46 



61 
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1 930 
194a 
-■ ft = 8 
1 950 
I960 
1 370 
= 1 T03 
1 930 
1 990 

£000 

BQ\ Q 

2020 

+ Xl > 

£030 

+ 39> 1 

+ 41 , 1 

£040 

POKEP 

2050 

5. 2 = F 

NEXTM 

MD9, 

2060 

£070 



PRIHTe698," "; 
H=32:H1=32=H2=32=P£=P2+100 



1=0 : I 1 =0 



RET 
POK 
FOR 

00 

eoT 

IFH 
POK 
, H2 
X = X 
H = P 



URN 



:E1 7448+V+U*40, 1S9+CVAMD1 
:M = 7T01 STEP-1 = PLAV<2, 4. M.. 

NEXTM = HEXTI1 = SOUND9,0 

01 530 

2=128IFPEEK<P-40)<>128LE 

EP-X1,H=POKEP+40-Xl,H1 P 

+ X1 :V = Y + 4 = X£ = X1 :P = 17468 + 
EEK<P>=H1=PEEK<P+40>=H2= 



>*3 

1 5; =FORM 



IFX2=-1 POKEP. 153=POKEP+40. 1 
48 ELSE POKEP, 1 5£ :POKeP + 40, 
46 -■ X2=1 

POKEP-21504.7=POKEP-21464.8 
-21 4e4+X2, 

SOUND9,15=SOUMO10,15:SOUND3 
0RH = 9T0£55STEP4 = SOUMOE. M = F0 
:SOUND4,£55-M:FORN=ITO10:nE 
■■ S0UND1 Q, Q 
6OTO650 
PRINT" ■ ■ ■■■■ ■ ■ 



TH£=32 
OKEP+40- 

X+Y*40 
PEEK<P+4 

59 :POKEP 
151 POKEP 

= IFH2=3£ 

,2 ■■ SOUND 
RN=1T01 ■- 
XTH,M=S0U 



2080 PRINT" 

■ ■ ■ " 
£090 PRINT" 

■ 1^ 
£100 PRINT" 

■ ■ ■ " 
2110 PRINT" 

■ ■ ■" 

21£e F0RL=1 7408TO17607 : IFPEEK<L>=e0£ POK 
EL, 160 

2130 NEXTL 

£1 40 FORX=0TO38STEP£=PRINTe280+X,CHR*<12 

9>;CHR*< 1 37> i =NEXTX 

2150 C0LOUR16 

2168 PRINT^PRINT 

£170 PRINT" 3eschrieben von 3uergen Buc 

hmuel ler " 

£180 PRINT" fuer Tr owimesch 1 aeger Coraput 

er Studio" 

£190 PRINT:PRINT" Copyright < C > 

1 9 83" 

£200 PRINT:PRINT 

££10 PRINT" REKORDPUNKTZAHL = ";R2j "0" 

£228 PRINT" " 

2230 PRINT" LET2TER SP I ELER = " j P£ ; " 8 " 

££40 PRINT" " 

££58 PRINT : PRINT"Druecken Sie <B> um das 

Spiel zu starten"; 
2260 PRINT" Oder <R) fuer die Rekordl 
i s t e " i 
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££ 

£3 
23 
£3 
£3 
£3 
£3 
UN 
£3 
^, 
£3 



70 

80 

90 

00 

1 

£0 

30 

^0 

50 

D1 

SQ 

1 7: 

70 



FOR 
POK 
NEX 
C = C 
FOR 
C* = 
IFC 
IFC 
CLS 
, 16 
POK 
L6R 
PRI 



L=0TO7 

EL-£S16.PEEK<(<L+C>AND7>-306^> 

TL 

+ 1 

M=1 TO508: NEXTM 

IMKEY* 

*="S"R 

t< >"R" 

= SOUND 

^ SOUHD 

El 71 51 



ETURH 

6OTG££70 

7.7 = S0UHD8.16 = SOUNDS. 1 6 = SO 

6,31 =SDUHD1£,58=S0UND13,9 

,148P0KE171'^7.19 = P0KE1714 



NTS1E." REKORDLISTE " = PR I NTe5£ , " 



£3 
£3 
£4 
£4 
£4 
£4 
£4 
£4 
1 
£4 
£4 
£4 
£4 
, 3 
£5 
£5 
£5 
£5 
RN 
£5 
<8 
£5 
£5 
£5 
£5 
£5 
£6 



80 
90 

00 

1 8 

£0 

30 

40 

50 

>*£ 

€0 

78 

30 

98 

£ ■■ L 

08 

1 8 

£8 

30 

48 
> ; 
50 
68 
70 
80 
98 
08 



FORL 

PRIN 

FORM 

IFPE 

PRIN 

NEXT 

PRIN 

PRIN 

5 6;" 

NEXT 

PRIN 

IFPE 

POKE 

6R 

RETU 

P1=P 

Y*=I 

A = AS 



= 0TO8 
Tei£8 
= 3110 
EK<M> 
TCHR$ 
N 

TPEEK 

0" 

L 
Te530 

EK<«:H 

1 71 51 

RN 

: F R M 

NKEY* 



= COLOURL+1 
+L*40. CHR*<49+L) i " 
0+L*1 0TO31 1 87+L*1 8 
<3£P0KEri, 3£ 
(PEEKtM) > } 



<31 1 08+L*10>+PEEKt31 1 89+L* 



. "Druecker, Sie CS) . " ; 

FS04><>8GOTO£488 

,78=P0KEI7147.38=P0KE1?144 



= 8T07 = P0KEP + I1,3£ = NEJ<TM 
. IFY*=" "GOTO£5£0 
=IFA=13PRIHTCHR*C15>; =RETU 



IFft=8IFP>P1P0KEP.3£^P=P-1=PRIHTCHR* 
'.";CHR*<£4:*i =G0T0£5£e 
IFA<3£6OTO£5£0ELSEIFA>1£7GOTO£5£0 
IFP<P1+8P0KEP, A =P=P+1 =PRINTYtj 
GOTO£5£0 

F0RL=1 7408 TO 1 8 431 ^ POKE L, 3£ :NEXTL 
POKE&H40£0,0 = POKE8.H48£1 ,68 
RETURN 
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Die Zeichen von HEKTIH 
CHRJC128) CHR$tl29i CHR$C130J CHR1C131) CHR$C132D CHR*(133J CHR4C134) 




J !■ 



J I 

iii i 



I I 
i i 
I 



I 
i 




CHRSC135) CHR$C136J CHRtC137D CHR$C138) CHRSC139J CHR$C1403 CHR$C14U 

h J i^ i 11 1: I 

m-.'M fc::::J i::::::| 

■::■! iiiidi kiiiii 

CHR$C142J CHR$C143D CHR$C144D CHR$C1453 CHR$C146D CHR$C147) CHRSC1483 

t:::::i 
i: I 

CHR$C149) CHR»C150) CHR$C151) CHR*(1S23 CHRSC153) CHR$C1543 CHR*tl55) 





CHR$C156) CHRIC157D CHR$C1583 CHR»C159) CHR$C160) CHRSClGn CHRS(162) 
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ErlHuterung des Programmes 

ZeileCnJ Funkt ion/Bedeutung 

10. . .320 DftTft-Zeilen fUr die def inierbaren Zeichen. 

Der Colour-Compiler legt DATAs ols Ooppelbytes 
ab ftdresse 4804H C = 18436 dez.J ab. 

330 Leseschleife fiir def inierbare Zeichen. Kopiert 

256 Bytes von 4804H nach F400H. 

340 CHAR 2, also sind die Zeichen 128... 191 selbst- 

derinierbar und 192... 255 vorgegeben. 

350 DflTA-Zeilen fiir die HEKTIK-Melodie. 

360 Melodie in Buffer nach 30720 Hopleren (Rdresse 

von A$ belm Colour-Compiler 3 

370 Cursor umdefinleren. Sechste und siebte Zeile 

sind gesetzt und nicht-bl inkend. 

380 Bildschirm und Farbspeicher loschen. 

390 E = Anzahl der Verfolger -Is M2 = Anzahl der 

Oiiger : Rl = Runde 

400 Unterprogramm fiir Ausgabe des Titelbildes 

aufrufen und auf "S" Marten. 

410 B2 = Bonus ; P2 = Punkte : Q & Ql = Zahler 

420 CLS mit POKEs aufrufen. Y- und X-Schleife 

fUr Zeichnen des Bodens er6ffnen. 

430 Boden besteht abMiechselnd aus den Zeichen 129 

und 137. \ 

440 Far be POMEn. 6 = COLOUR 5 = orange. 

450 NJichster Ziegel . Ebene. 

460 Unterste Zeile wird mit 202 belegt. damit hier 

das HacKen unm6glich ist. 

470 Schleife fiir Rnfangsposi t ionen der Leitern. 

480 R und B sind die X-Positionen der JeMeils zwei 

Leitern in einer Etage. 
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ZeileCn) Funkt ion/Bedeutung 

490 Zweite V-Schlelfe Tur Larxge der Leitern. 

500 Sprosse und Forbe C3 » wei0D der ersten Leiter 

in Bildschirm bzw. Forbspeicher poken. 

510 Ebenso mit der ZMeiten Leiter verfahren. 

520 Nachste Sprosse. Etage 

530 mlt COLOUR 11 in der letzten Zelle anzeigen. 

540 Anzahl der rest lichen Oager rechts unten anzeigen 

550 Wenn T = Cd,h. ftlle Verfolger sind abgesturzt) 

dann Bonus zur PunVstzahl addieren. 

560 Soundregister vorbelegen. 

570 T = Zahl der abgesturzten Verfolger : T2 = Anfang 

der Melodie -1 t 02 = Oktave : B2 - Bonus 

580 Schleife ftir Vorbelegung der Positlonen und 

Richtungen der Verfolger eroffnen. 

590 X- und Y-Position poken. 

600 X-Richtung poken (entspr. -IK 

610 V-Richtung poken Centspr. 0). 

620 Zeichen unter Verfolger mit 32 C= Space) 

vorbelegen. Dieses Zeichen wird spater anstelle 
des Jewell igen Verfolgers ausgegeben. Deshalb 
werden Leitern und Ziegel nicht zerstSrt. 

630 Nachster Verfolger. 

640 X = X-Position des Pagers : Y = V-Position des 

Pagers : H. HI, H2 = Zeichen unter dem den 3ager 
mit 32 (= Space) vorbelegen. : X2 = Richtung des 
Dtigers fiir die Berechnung der Zeichen vorbelegen. 
. Y2 = Y-Richtung vorbelegen. 

650 Tastaturabf rage; Bei (=1 = 6 ist CBRERK) & 

(CLEAR) gedriickt . 

660 X- und V-Richtung gleich null setzen. 
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ZeileCn) Funkt ion/Bedeutung 

670 bei A = 32 ist Bit 5 gesetzt. Linkspfeil. 

680 bei 1=1 = 64 ist Bit 6 gesetzt . Rechtspfeil. 

690 bei ft = 8 ist Sit 3 gesetzt. Pfeil nach oben. 

7O0 bei ft = 16 ist Bit 4 gesetzt. Pfeil nach unten. 

710 P = Bi Idschi rmadresse des 3agers. 

720 II = Zahler fur die blinkenden Bonus-Kugeln. 

Wenn II = 0, werden die beiden folgenden Zeilen 
iiber sprungen . 

730 HI = Zeichen das vorher unter den Beinen des 

Oagers stand. 

740 HZ = Zeichen unter der Hacke. 

750 C = Zahler ; CI ist abwechselnd oder 1. 

760 Wenn das Zeichen unter dem Kopf des Oagers 

gleich einem Verfolger ist, dann EXITUS- 

770 Ebenso bei dem Zeichen unter der HacUe. 

780 Wenn der Bonus noch groper Null ist, dann deKre- 

ment ieren. 

790 Wenn ft ftND 127 = 0, bedeutet dies, keine Pfeil- 

taste gedruckt wurde. ftlso wird bei einer Bewe- 
gung der letzte Oager im Bildschirm gelbscht. 
Der Farbspeicher wird auf 15 C= weip) gesetzt. 

800 Wenn X-Position plus Richtung auf den rechten 

Oder linken Rand kommen. dann X-Richtung Null 
setzen. 

810... 820 Ubernahme der Richtungen in Variablen zur Berech- 
nung der Zeichen fiir den Jager . 

830 PI = Position + V-Richtung 

P = Position + X-Richtung 

840 Z = Zeichen unter den *FuPen* des Oagers. 

Wenn alle Vergleiche nicht zutreffen, steht der 
Jager nicht auf etwas, auf dem er laufen kann. 
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ZeileCNJ Funkt ion/Bedeutung 

850 Wenn Z=136 Oder Z=143, flbsturz des pagers. 

860 Wenn der Jager nicht auf einer Letter steht , dann 

wird die Y-Richtung gleich Null gesetzt. 

870 X.Y und P neu berechnen, wenn A AND 127 <> 0. 

dann neue Zeichen unter dem 3ager in H, HI und 
HZ abspeichern. 

880 Wenn II < 1, dann bl inken die BonusKugeln nicht. 

890 Wenn Zeichen unter der Hacke ein Zeichen der 

Bonuskugel ist , dann Unterprogramm fvir Bonus- 
addition ab Zeile 1880 aufrufen. 

' 900 Farben fur aager POHEn. CP-21S04 ergibt Farb- 

speicheradresse, z.B, 17408-21504=-4096) 

910 Wenn seitliche Bewegung und das Zeichen unter 

der Hacke ein Leerzeichen ist . dann Farbspeicher 
auf C=grauD setzen. 

920-..940 In fibhangigkei t von den Richtungen warden die 
Zeichen des Jagers berechnet und in den Bild- 
5chi rmspeicher gePOKEt. 

350 a eND 128 = 128 bedeutet , daP die Leertaste 

gedriickt wurde CHackenK Sonst nach Zeile 1070. 

960 Wenn X-Richtung Null ist. kann nicht gehackt 

werden . 

970 Ton beim Hacken. 

980 Hacke auf und ab bewegen (Mit CIJ. 

980 Uenn C1=0, dann ist die Hacke oben. und das 

Loch wird nicht vergrSpert. 

1000 P wird nun die Bi Idschirmposlt ion unter der Hacke. 

Z speichert das dortige Zeichen. 

1010 SHIFT gedriickt ? Wenn ja, dann 1050. 

1020... 1040 In fibhJSngigkeit vom Ziegeltyp das Loch vergropern. 

1050,1060 In RbhSngigkeit vom ZiegeltvP das Loch schlie0en, 
32 



Zeile(n) Funht lon/Bedeutung 

1070 In Rbhongigheit von der Spielrunde. wird unter- 

schiedlich oft die Routine zur Bewegung der 
Verfolger aufgerufen. Ansonsten wird eine 
Warteschlei fe ausgefuhrt. 

1080 Wenn Z2=l ist , wurde man von einem Verfolger 
erwischt Csiehe Unterprogramm ab 14005. 

1090 Ausgabe von "** HEKTIH *»". Punhtzohl und Bonus 
in zufalligen Farben . 

1100 Wenn alle Verfolger abgesturzt sind, wird 

Absturzzahler T gleich Null gesetzt , die Runden- 
zahl Rl urn 1 erhoht und, wenn E<5 CE=Rnzahl der 
Verfolger-1) wird E ebenfalls urn 1 erhoht. 
Dann in die nachste Runde CZeile 420 3. 

1110 Zur Hauptschlei fe CTastaturabf rage . . . D . 

1120... 1140 Ton bei Verlust eines Oagers. 

1150 M2 CJagerzahli erniedrigen, wenn M2=0 dann 
Spielende (Zeile 1180 foLgendel. 

1160,1170 Bonus=0, zur Hauptsch lei f e. 

1180... 1230 Erreichte Punktzahl wird mi t der Rekordliste 
verglichen. 1st man nicht unter den 
ersten Neun, Sprung zum Titel. 

1240... 1390 Eingabe des Namens und Emsortieren in die 
Rekordl iste. 

1400 Schleife fur Verfolgerbewegung eroffnen. 

1410 X.Y und Zeichen unter dem jeweiligen Verfolger 
Q aus dem Speicher in Variablen holen. 

1420 Bei V=255 ist der Verfolger schon abgesturzt. 

1430 Menn Q ein Teil des 3agers ist, dann Flag Z2 
setzen und Rucksprung. 

1440 Wenn Q ein Teil der Bonuskugel ist, aber der 
Bonus nicht blinkt, wird Q=32 (LeerzeichenJ 
gesetzt . 

1450 X- u. V-Richtung in Variablen speichern. 
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Zeile(n3 Funkt ion/Bedeutung 

1460 Das letzte Zeichen unter dem jeweiligen Verfolger 

C = Q) wird wieder in den Bildschirmspeicher 
gePOKEt . 

1470 Farbspeicher weip setzen. 

1480 Wenn Q ungleich Leiter C=1283 und ungleich Leer- 

zeichen (=32), dann Farbspeicher auf orange C=6). 

1490 Wenn X-Position plus X-Richtung glelch linker 

Oder rechter Rand, dann X-Richtung uradrehen. 

ISOO ft wird Wert des Zeichens unterhalb und B oberhalb 

der Blldschirmposit ion des Verfolgers. 

1510 Wenn Y-Position = 1 Coberste Etage) oder 

Y-Position = 21 Cunterste EtageK dann Y-Richtung 
entsprechend umdrehen. 

1520 Wenn ein Loch im Soden unter dem Verfolger ist 

Cbei r=i=135 oder ft=143) , dann sturzt er ab. 

1530 Wenn Verfolger auf Leiter, dann X-Richtung auf 

Null setzen oder wenn er direkt iiber dem Boden 
und au0erdem auf dem Weg nach unten ist. 

1540 Sonst X-Richtung mlt 1 oder 3 belegen. 

C RNO C2D OR I ergibt imaer 1 oder 3 ). 

1550 Wenn Verfolger auf dem Weg nach oben und auf 

einer Leiter, dann X-Richtung glelch Null setzen. 

1560 Sonst Mie bei Zeile 1540. 

15T0 X- und Y-Richtung zu den Positionen addleren. 

15B0 Neues Q aus dem Bildschirmspeicher in die Tabelle 

speichern. 

1590 ftuf die Bi Idschirmposit ion einen der beiden Ver- 

folgertypen POKEn. 

1600 Farbspeicher mit griln setzen C - 5 ). 

1610 Neue X- und Y~Posltion in der Posit ionstabel le 

abspelchern. 
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ZeileCn) Funkt lon/Bedeutung 

1620 Wenn der Verfolger nicht uber seinesgleichen 

Steht , dann Sprung zu 1660 

1630... 1650 Sonst Tabelle nach Verfolger mit gleicher X- und 
Y-Posation durchsuchen. und wenn gefunden, dann 
dessen Wert fur Q ubernehemen. 

1660 Nachster Verfolger. 

1670 Zahler fur Noten um eins erhohen. Wenn Ende der 

Melodie erreicht ist. dann Zahler zurucKsetzen 
und Zahler fur Oktave um eins erhohen. Wenn 
Oktave = 7 dann wieder bei 3 beginnen. 

1680 ft = Ton aus Tabelle. Mit PLAY auf 3. Tonkanal 

ausgeben. Wenn Pi<>0 dann Hullkurve auf Impuls 
programmieren . 

1690 Wenn Bonuskugel sich schon bewegt CFlag gesetzti, 

dann zu Zeile 1840 

1700... 1730 Sonst mit einer mit der Rundenzahl zunehmender 
Wahrscheinl ichkei t das Flag und den Zahler fur 
den Bonusbl inker belegen. 



1740 ftbsturz eines Verfolgers, Mit steigender Anzahl 

der Runden immer ofter das Loch schliepen. 

1750... 1830 Ptbsturz eines Verfolgers. Dabei werden die 

Zeichen und die Farbe unter dem absturzenden 
Verfolger immer in Q und Ql zwischengespeichert . 
finschliepend wird zur Punktzahl flnzahl der Feinde 
mal 5 addiert . 

1840 Wenn Zahler fur Bonuskugel CI13 noch grower Null 

ist. dann wird er um eins erniedrigt. 

1850 Wenn II anschliepend gleich Null ist , dann wird 

der Blinker geloscht und das Flag zuruckgesetzt . 

1860 Sonst wird abwechselnd CftND 15 eine der zwei ver- 

schiedenen Kugeltypen ausgegeben. 

1870 Zuruck zur Hauptschl ei f e . 

1880 Bonuskugel wurde beruhrt. Dann wird das Flag zu- 

ruckgesetzt und statt der Kugel "1000" angezeigt. 
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ZeileCn) 
1890 

1900 
1910 
1920 
1930 
1940 



1950 
1960 

1970 
1980 
1990 

2000 

2010 
2020 

2030 

2040 
2050 
2060 



Funkt ion/BemerHung 

Die Melodie bei einem Bonus wird mit Hilfe von 
CHR$tXJ in B$ zwischengespeichert . 

Schlelfe fiir neun Tone. C wird aktueller Ton. 

^uf Kanal 3 mit LautstarVse 14 ausgeben. 

Marteschleife und nidchster Ton. 

Die "1000" wleder loschen 

SSmtliche Zwischenspeicher fiir den 'Untergrund' 
des OSgers durch 32 CLeerzeichen) ersetzen. 100 
zu den Punkten addieren twird als 1000 angezeigt) 
und Zahler und Flag zuriicksetzen. 

Zuriick zur Hauptschleife. 

Dos Loch, Uber dem der Verfolger. steht wleder 
schl ie0en. 

Ton ausgeben. 

Zurtlck, kein Absturz. 

Der JJiger fallt eine Etage tiefer. Wenn die Hacke 
vorher in einer Leiter war, dann das Zeichen 
durch ein Leerzeichen ersetzen. 

OSger auf alter Position mit den zwischengespel- 
cherten Werten fur den Untergrund ISschen. 

Neue Position berechnen. 

Neue Hintergrundwerte aus dem Bildschirraspeicher 
lesen und in H, HI und H2 ablegen. 

Aus der letzten X-Bichtung die neuen Zeichen fiir 
den OSger berechnen und in den Bildschirmspeicher 
POKEn. 

Farben fUr den 3ager In den Parbspeicher POKEn. 

Ton erzeugen und wleder abschalten. 

Zuriick zur Hauptschleife CTastaturabfrage) . 
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ZeileCnS 
2070. . .2110 
2120,2130 



2140 




2150. 


. .2260 


2270. 


. .2290 



2300 

2310 

2320. . .2340 

2350 

2360 

2370. . .2470 

2480 
2490 
2500 
2510 

2520. . .2570 



2580. . .2600 



Funkt ion/Bemerhung 

Ausgabe des Titels. 

CHR^C202) Graf" ik-Zeichen durch CHR^CIGO) er- 
setzen. Dieser wird dann anschl ie0end umdefi- 
niert, sodap die Mauer durch die Schrift zu 
laufen scheint. 

Darunter elne Zeile Boden ausgeben. 

Restliche Texte ausgeben CIn COLOUR 16 = wei0K 

Diese Routine hopiert in CHR$C160D die Mauer um 
jeweils ein Byte wei tergeschoben. 

Zahler erhohen. 

Warteschl ei f e . 

Tastaturabf rage auf "S" Oder "R". 

Bei "R" wird die ReHordtabel le ausgegenben. 
Explosionsgerausch in PS6 programmieren. 

CRTC auf doppelte Zeichenhbhe umprogrammieren. 

ReVnordl iste ausdrucken. Neun Platze in ver- 
schledenen Farben ausgeben. Hinter der Punktzahl 
eine zusatzliche Null anzeigen. 

1st "S" gedrUcht ? Nein, dann wieder abfragen. 

Zeichenhohe Mieder auf normal programmieren. 

Zuriick vom Unterprogramm. 

Unterprogramm fUr Eingabe eines Namena mit 8 
Buchstaben. Die RflM-ftdresse des Buffers steht 
in der Variablen P. Zuerst den Buffer loschen. 

Tastendrijcke abspeichern bis RETURN gedriickt 
wird. Mehr als 8 Zeichen werden nicht angenommen 
und man kann mit Linkspfeil nicht vor die erste 
Buf feradresse PI zuriichgehen. 

Schnel ler CLS, der Leerzeichen in den Bildschirm- 
speicher POKEt . Die Cursorposit ion in 4020H und 
4021H wird auf linke obere Ecke gePOHEt, 
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Bubble Sort 

"Bubble Sort" ist ebenfalls ein Spiel programm, da0 Sie mit 
dem "Colour Compiler" compilieren miissen. 

Sie kOnnen das Programm aber auch mal im normal en Basic lauTen 
lessen, urn die immense Geschwindigkei tserhohung, die der 
Compiler bringt, zu sehen. Auf eine Erklarung des Programmes 
sei verzichtet - die Spielregeln finden Sie im Programm selbst. 

Programm I ist ing: 

10 CLSiCOLOURl 

20 PBINTf 14, "Bubble Sort" 

30 PRlNT:PRINT"Bei diesem Spiel geht es darum, die" 

40 PRINT"eine Sorte Kugeln C "; :C0L0UR3 : PRINTCHRS C 230) ! : COLOURl : PRINT"5 
auf die eine und" 

50 PRrNT"die andere Sorte C ": :COU0UR2;PRINTCHBtC235) : :C0L0UB1 jPRINT") 

auf die andere" 

60 PRINT"Seite des Bildschirms zu bringen. Den" 

70 PRINT"blauen Teil des Mi ttelstrei f ens Koennen" 

80 PRlNT"Sie mit dem Hoch- und Runterpfeil be-" 

30 PRINT"wegen und mit <RETURN> oef fnen. ": PRINT: PRINT:PRINT"Bitte drue 

cken Sie <RETURN>" 

100 R=PEeKCicHF840)f=tNDl 

110 IFfl=OTHEN100 

1 20 S0UND7 , 248 I SOUNDS ,16: SOUNDS , O : SOUND 10,0; SOUND U : SOUNDO ,100: SOUND 1 

2,4 

130 COL0UR4:CLS 

140 '**«***** UMRANDUNG ZEICHNEN 

150 F0RX=0T039 

160 P0KEX-4096,3:P0KEir408+X,2O2 

170 P0KEX-3216,3:POKei8288+X,2O2 

180 NEXTX 

190 FORV=40T0840STEP40 

200 P0HEY-4096,3!P0KE17408+Y,202 

210 P0KEY-4057,3!P0KE17447+V,202 

220 P0KEY-4076,6:P0KE17428+Y,202 

230 NEXTY 

240 '**«*»*«* KUQELN ZUFRELLIG SETZEN 

250 F0RL=0T09 

260 R=2 

270 X=RNDC38J 5 Y=RNDC 21 ) : A=(LflNDn«3+R ;X1 =RNDC 2 J ORl : Yl =RNDC2 JORl 

280 IFX=20QOT0270 

290 POKE31000+L . X : POKE31010+L . Y : POKE31020+L , R : P0KE31030+L ,X1 : P0KE31040 

+L,V1 

300 60SUB760 

310 NEXTL 

320 Z=0 

330 P1=40:P»40:D1«0 

340 Dl=>Dl + l:PRINT§920.Dlj" Zeiteinhei ten"} !R-PEEKC«.HF8403 

350 IFCAAND83=81FP>40LETP-P-40 
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360 IFCft(=lNDi6)=16IFP<800LETP = P+40 

370 F0RY=40T0840STEP4OsPOKEY-aO76,6:P0KEir428+Y.202 

380 IFV=PP0KEY-4076.8ELSEIFY=P+40P0HEY-4076.8 

390 IF{Plf=lNDn=lIFY = PP0ME17428+Y,32ELSEIFY=P+40P0KE17428+Y,32 

400 NEXTY 

410 G0SUB430 

420 SOT0340 

430 C1'=0:C2=0:F0RL=0T09 

440 X=PEEKC31000+L) ; Y=PEEK( 31010+L 5 

450 A=PEEKC31020+L) 

460 Xl=PEEKC31030+L)-2:Yl=PEEKC31040+LD-2 

470 IFX<20IFCL(=IND1J=0LETC1=C1 + 1 

480 IFX>201FCLFlNDn = lLETCl=Cl + l 

490 IFX<20IF(LANDn=lLETC2=C2+l 

500 IFX>20IF(LPlNDlJ=0LETC2=C2+l 

510 POKE 1740a+X+Y«40.32 

520 B=PEEKC17408+X+X1+Y«40J 

530 C=PEEKC17408+X+CY+Y13*4O) 

540 D=PEEKC17408+X+X1+CY+Y1]*40) 

550 SOUNDl. l:IFD<>32IFB=32LETYl=0-Yl:S0UND13,9iQ0T0590 ELSE IFC=32LETX 

1 eO -X 1 : SOUND 13,9; G0T0590 

560 SOUND 1,0 

570 IFB<>32LETXl=0-XliS0UND13,9 

580 IFC<>32LETY1=0-Y1:S0UND13,9 

590 X=X+X1:Y=Y+Y1 tG0SUB760 

600 P0KE310O0+L.X 

610 P0KE3i010+L.Y 

620 P0KE31030+L,Xl+2 

630 P0KE31040+L.YH-2 

640 NEXTL 

650 I F2*0I FC 1 = 1 0Q0T0670ELSE I FC2- 1 0GOT067O 

660 RETURN 

670 RESTORE : POKEP+ 1 7428 , 202 : POKE P+ 1 7468 , 202 s Z= 1 : FQRQ= 1T0255STE P6 : GOSUB 

430 

680 S0UND9 ,15: SOUND 10,15 

690 SOUNDS . O s S0UND2 , Q s SOUNDS , O : S0UND4 , 255-Q 

700 NEXTQ 

710 SOUNDr.255 

720 CLS:PRINT**Sie haben es in"tDl sPRINT^Zelteinheiten geschafft." 

730 ft=PEEKC«tHF840DANDl 

740 IFA=0THEN730 

760 GOTOIO 

760 POME &HF000+X+Y»40,ft 

770 IFA=2THENR1=230ELSER1<=235 

780 POKE fcH4400+X+V*40,Rl 

790 RETURN 
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Tilgungsplan 

Das folgende Programm hilft Ihnen bei der Berechnung der Abzah- 
lung einer Ratenschuld. Oabei kann man wiihlen, ob die Schuld 
mit konstanter Annuitat CGesamtbelastung = Zinsen + Titgung) 
Oder mit konstonter Tllgung erfolgen soil. 

Programml ist ing: 



10 CLS 

20 COLOURS: PRINT"Tilgungspl an einer Ratenschuld" 
30 PRINT 
40 CLEAR 

50 C0L0UR4;INPUT"1 -• Konstante Gesamtbelastung 
2 - Konstante Tilgung"!B 
60 0NB60T070.220 

70 lNPUT"Annultaet , Zins, Kapital eingeben 
•* S R . P . K« 
80 PRINT 

90 C0L0UR2:PRINT"Zeit Zins Tilgung Restschuld" 
100 K1#=K# 
110 X=X+l 

120 ZI = INTtK**P+.5D/'100 
130 T=R-ZI 
140 IFT>=K»THENT^K# 
150 R#=H#-T 

16<> D$ = " tt«tt tt»«tt»tt».«« «««#«««.«» ««»«tt««.««" 
170 PRINTUSlNGD»jX!ZI;T:R« 

180 IFT<=0THENC0LOUR7;PRINT"Elne Tilgung ist nicht moegl ich":PRINT*'Die 
Zinsen betrageri"sZI ; "DM und sind groesser":PRINT"als die Tilgung von" 
:Tj"DM":G0T0490 

190 IFR#<=OTHENPRINT"In"!X:"Zeitperioden ist die Schuld von'*:PRINTMl«; 
"DM getilgt":eOT0490 
200 Kft=R* 
210 GOTOllO 
220 DIM ZCIOOO) 

230 A$=" #** *##«»#*,## ##*##*.*» #*##»*#.««" 
240 BJ = "K=#«#««»#.«« N=«## P=tt##.««#" 
250 PRINT 

260 INPUT"Bitte Kapital, Zeit. Zinssatz eingeben 
"!K,N.P 
270 K1«K 
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280 PRINT 

290 PRINT 

300 PRINT 

310 PRINTUSINGB*;K;N:P 

320 C0L0UR2:PRINT"Zeit Zinsen Tilgung ftnnuitaet' 

330 PRINT 

340 T=lNTtlOO*K/N+. 53/100 

350 FORI =1 TON- 1 

360 IPC I=2130RC I=41)0RCI=61JTHENINPUT"Weiter"!C* 

370 Z=INTCH*P+.5D/'100 

380 PRINTUSINQPiI:I:Z;TjT+Z 

390 K=K-T 

aoo ZCI)=Z 

410 NEXTI 

420 U=INTCK«P+.5J/100 

430 ZCN)=U 

440 PRINTUSINQA$;N;U:K:U+K 

450 FORI =1 TON 

460 Z1=Z1+2CI) 

470 NEXTI 

480 PRINT"eesamte Zohlungen ="sZl+Kl 

490 PRINT:C0L0UR8!lNPUT'*Rndere Berechnung C3/N)"jCS 

500 IFLE 

510 END 
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Gleichungen mlt 3 Unbekannten 

Dieses Mathemat iUprogramm berechnet die 3 Unbekannten von 3 
Gleichungen der Form ax+by+cz»d. 

Progromml ist ing: 



10 CLS:C0L0UR1 

20 PRINT"Diese5 Programm berechnet aus drei "!PRINT"Gleichungen der Fo 

rm" 

30 PRINT"ax+by+c2=d Ca,b,c und d gegebenJ die" j PRINT"Unbekannten x.y u 

nd z" 

40 PRINT 

50 C0L0UR2:INPUT'*al. bl, cl und dl" ;«=ll ,B1 . CI , Dl 

60 COLOURS: I NPUT*'a2. b2 , c2 und d2" ;R2 , B2 , C2 , D2 

70 C0L0UR7: INPUT**a3, b3, c3 und d3'* ; Pl3,B3,C3,D3 

80 = A 1 *B2*C3+B 1 «C2»A3+C 1 *(=l2*B3-fl3*B2«C 1 -B3»C2Kft 1 - C3*(=12*B 1 

90 DX=D1*B2*C3+B1*C2«D3+C1«D2«B3-D3*B2*C2-B3*C2»D1-C3«D2*B1 

100 DY=ft 1 *D2KC3+D 1 *C2*R3+C 1 *A2*D3- A3KD2*C I -D3«C2*A 1 - C3K(=«2*D 1 

110 D2"R 1 »B2*D3+B 1 *D2*A3+D 1 *R2*B3-R3*B2XD 1 -B3«D2*P| 1 -D3*A2»B 1 

120 PRINT:PRINT:C0L0UR4 

130 IFD=OTHENPRINT"Das System tst nicht I oesbar . " tEND 

140 PRINT"x =":DX/D 

150 PRINT"v =";DY/D 

160 PRINT"z =";DZ/D 

170 END 
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Pascalsches Dreieck 

Fiir dieses Programm wird ein Drucker benotigt. Ausgedruckt wird 
das sogenannte Pascalsche Drelech (siehe Ausdruck unten) . 
Das Pascalsche Dreick wird in der Mathematik dazu benutzt , urn 
die Binominalkoerf izienten von Gleichungen n-ten Grades abzu- 
lesen. 



n= 1 

n= 1 1 1 

n= 2 i 2 1 

n= 3 jL 3 3 1 

ns 4 1 4 6 4 1 

n= 5 1 5 10 10 5 1 

n- 6 1 6 15 20 IS 6 1 

n= 7 1 7 21 35 35 21 7 I 

n= 8 1 8 28 56 70 56 28 8 1 

n"= 3 1 9 36 84 126 126 84 36 9 1 

n=10 1 10 45 120 210 252 210 120 45 10 I-- 



Programml ist ing: 

10 LPRINTCHRSC15) 

20 CLEAR 100 

30 DIMDRC17,17) 

40 LPRINTCHRSC14D'* Pascal sches Dreieck" 

50 LPRINTCHR$C155 

60 DRC0.0)=tl 

70 CLS 

80 PRINT"Pascal sches Dreieck" 

90 TPiB=32 

100 F0RPINZRHL = 1T011 

110 LPRINT"n="; 

120 LPRINTUSING"««";RN2(=lHL-li 

130 FORR-OTOTRBB 

140 LPRINT"-"; 

150 NEXT 

160 F0RS"1T0PINZAHL 

170 DR( ANZRHL .S) =DRC RN2RHL- 1 .5-13 +DR( ANZAHL- 1 , S) 

180 IFS>lTHENLPRINTUSING"«##*«#";DRCRN2PlHL,SJ t JNEXTELSELPRINTUSING"*' 

DRCANZAHL.S) t iNEXT 

190 FORft=lT0TflB 

200 LPRINT*'-" J 

210 NEXT 

220 LPRINT 

230 TRB=TAB-3 

240 NEXT 

250 LPRINTSTRINQ»C6.10) 
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Garbage Collect 

Das ProgramiBl ist ing, das nun folgt, soil Ihnen einen Effekt 
verdeut I ichen, dem Sie mogl Icherweise schon begegnet sind, ohne 
ihn sich erhlaren zu k5nnen. 

Qemeint ist, dap sich der Computer in langeren Basic-Programmen 
fur einige Sehunden "aufhangt", d.h. dap das Programm stehen- 
bleibt und sogar iriit der BREAK-Taste nichts mehr zu machen ist. 
Wenn Sie das Tolgende Programm eingeben und starten, wird das 
Problem sehr deutlich: ObwoKl ZMischen den einzelnen PRINTS nur 
ganz normale Variablenzuweisungen ausgefuhrt werden, dauert 
dies bis zu einigen Sehunden. Dies kann auch dann Probleme be- 
reiten, wenn Sie Daten vora Band einlesen, da durch eine derar- 
tige Verzogerung Oaten verlorengehen konnen. 

Was ist nun der Qrund fur diese Verzogerung und wie kann man 
das Problem umgehen und seine Baslcprogramme damit schneller 
machen'' 

Der Qrund 1st Zeile 50: 
50 DIM ACMEM/3-S0O) 

In dleser Zeile wird ein gropes Feld dinensioniert Cabhangig 
vom vorhandenen Speicher). Wird nun eine neue Variable ein- 
gef tlhrt , wird das ganze Feld verschoben, urn fur die Variable 
Platz im Speicher zu schaffen. Dies verursacht besagte Verzo- 
gerungen. Fugt man nun eine Zeile ein, die alle spater ge- 
brauchten Variablen bereits vor dem DIM-Befehl schon einmal 
benutzt . werden diese schon vor dem Feld im Speicher angelegt. 
das dann spater nicht mehr verschoben werden mup. Dies konnen 
Sie z.B. bei dem vorliegenden Programm einfach dadurch errei- 
chen, indem Sie die ganz unten gel istete Zeile 5 mit eingeben, 
die alien benutzten Variablen den Wert zuweist. 
Das Programm lauft dann erheblich schneller i 

Programal ist ingt 



10 CLS:C0L0UR1 

20 DEFSTRA 

30 R»0 

40 Q=R 

50 D I MAC MEM/3- 500] 

60 (=IC0)=" 

70 R(1)="<RETURN>" 

80 CLS 

90 PRINT"DruecKen Sie <RETURN> zur Demonst rat ion" : PRINT"des Garbage Co 

Uect" 

100 Q-l-Q 
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110 


C0L0URRNDC8) s PRINTS13. ACQ) 


120 


F0RR=1T020 


130 


IFINKEVJOCHRSC 13)THENNEXT 


1^0 


CLS:C0L0UR9 


150 


PRINT"X ="; 


160 


X = 2 


170 


PRINTX 


180 


X1=X 


190 


PRINT"Zwei und zwei sind"; 


200 


Y=X+X 


210 


PRINTY 


220 


Y1=Y 


230 


COLOUR ltPRINT"Wus5 ten "; 


240 


A='*" 


250 


C0L0UR2:PRINT"Sle"! 


260 


B=0 


2T0 


COLOURS: PR I NT", dass "; 


280 


0=^0 


290 


C0L0UR4:PRINT"Ihr ": 


300 


0=0 


310 


COLOURS: PRINT"Coraputer "j 


320 


E=0 


330 


C0L0UR6sPRINT"so " 


340 


F=0 


350 


COLOUR?: PR INT" long"; 


360 


G=0 


370 


PR I NT "s" J 


380 


H = 


390 


PRINT"a": 


400 


1=3 


410 


a=K 


420 


PR I NT "m "; 


430 


K=C 


440 


L=K 


450 


I1=B 


460 


COLOURS: PRINT"ist?" 


470 


COLOURl 



GOTO 100 



5 B=0:C=B:D=B:E=B:F=B:G=B:H=B: I =B : a=B:K=B : L=B: M=B: Q=B:R=B :X=B: Xl-B: Y=B 
:Y1=B:A$ = ''" 
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Ein haschlnensprache-Monitor in Basic 

Da es im Laufe dieses Buches notig sein wird, Kleinere Pro- 
gramme in hexadezimal einzugeben Oder sich Speicher inhol te ar>- 
zusehen, geben Sie bitte das hier aufgelistete Basicprogramm 
ein und speichern Sle es auf Ksssette: 



10 CLS 

20 CLEAR 1000 

30 PRINT"Command"; 

40 INPUT 1=1$ 

50 IF Fi$ = "" THEN 30 

60 60SUB 1460 

70 IF B» = "P*' THEN PR= 1 : GOSUB 1460 ELSE PR=0 

80 C$ = "HFIET6RW" 

90 FOR A=l TO LENCC$J 

100 IF B$<>MID$tC». R, DTHEN NEXT fl; GOTO 30 

110 ON A GOTO 130, 390, 590, 740, 900, 1040, 1730 

120 GOTO 30 

130 GOSUB 1510 

140 X=Z 

150 2=X 

160 GOSUB 1600 

170 PRINT Z$;" "; 

180 IF PR=1 THEN LPRINT Z$ j " ": 

190 C=0 

200 FOR Y=0 TO 7 

210 Z=PEEKCX+V5 

220 C=C+Z 

230 GOSUB 1600 

240 PRINT RIGHTS CZt, 2):" "; 

250 IF PR=1 THEN LPRINT RIGHT* CZ$, 2)j" "; 

260 NEXT Y 

270 PRINT" "s 

280 IF PR^l THEN LPRINT" "; 

290 Z=C 

300 GOSUB 1600 

310 PRINT RIGHTJCZl, 2) 

320 IF PR-1 THEN LPRINT RIGHTSCZS, 2) 

330 X=X+8 

340 KB=PEEKCtHF8403 

350 IF HB=2 THEN 30 

360 IF KB0 128 THEN 150 

370 KB = PEEKC«cHF8403 

380 IF KBOl THEN 370 ELSE 150 

390 GOSUB 1510 

400 X=Z 

410 Z=X 

420 GOSUB 1600 

430 PRINT ZS:" ": 

440 IF PR=1 THEN LPRINT Z$ ; '* "i 

450 FDR Y=0 TO 23 

460 Z=PEEKtX+Y) 

470 IF Z<32 THEN Z=ftSC(".") 

480 PRINT CHRStZ); 

490 IF PR=1 THEN LPRINT CHRJCZD: 

500 NEXT Y 

510 PRINT 



520 IF PR=1 THEN L PR INT 

530 X=X+24 

540 KB = PEEKC«cHF840D 

550 IF HB=2 THEN 30 

560 IF KB0 128 THEN 410 

5T0 KB=PEEKC&HF8403 

580 IF KBol THEN 570 ELSE 410 

590 GOSUB 1510 

600 X=Z 

610 Z=X 

620 GOSUB 1600 

630 PRINT 2$t" - *'; 

640 Z=PEEKCXJ 

650 GOSUB 1600 

660 PRINT RI6HTJCZ$, 2):" - "; 

670 AS="" 

680 INPUT AJ 

690 IF fti="" THEN 30 

700 GOSUB 1510 

710 POKE X, Z AND 255 

720 X=X+1 

730 GOTO 610 

740 GOSUB 1510 

750 X=Z 

760 Z=X 

770 GOSUB 1600 

780 PRINT Zii" - "; 

790 Z=PEEKCX) 

800 GOSUB 1600 

810 PRINT RIQHT$CZ$, 2);" C": 

820 IF 2<32 THEN Z=ASCC".") 

830 PRINT CHR${Z3;"J - "; 

840 fl$="" 

850 INPUT f\% 

860 IF P(t = *"* THEN 30 

870 POKE X, ASCCRID 

880 X=X+1 

890 GOTO 760 

900 GOSUB 1510 

910 Z1 = INTCZ/'256JAND 255 

920 Z2=2 f»ND 255 

930 POKE 16526, Z2 

940 POKE 16527, Zl 

950 GOSUB 1460 

960 IF B$=" " THEN 950 

970 fl* = B!t+(=l» 

980 GOSUB 1510 

990 Z=Z AND 255 

1000 2==USRCZD 

iOlO GOSUB 1600 

1020 PRINT RIGHT$CZ$, 2) 

1030 GOTO 30 

1040 GOSUB 1510 
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1O50 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 



IF Z>=0 THEN Xi=2 ELSE Xl=Z+65536 

GOSUB 1460 

IF B$=" " THEN 1060 

f\i = B%+fM 

GOSUB 1510 

IF 2>=0 THEN X2=Z ELSE X2=Z+65536 

PRINT" ft B A+B f=l-B" 

PRINT" '*; 

Z=X1 

eOSUB 1600 

PRINT Zi!" "; 

Z=X2 

GOSUB 1600 

PRINT 2$;" "j 

Z=X1+X2 

IF Z>65535 THEN 2=Z-65536 

GOSUB 1600 

PRINT Z$!" "; 

Z=X1-X2 

IF Z<0 THEN Z=Z+65536 

GOSUB 16O0 

PRINT Z$ 

Z=X1 

GOSUB 1420 

PRINT Z$;" "; 

Z=X2 

GOSUB 1420 

PRINT Zl:" "; 

Z=X1+X2 

IF Z> 65535 THEN 2^2-65536 

GOSUB 1420 

PRINT 21 f" "; 

2=X1-X2 

IF 2<0 THEN Z=Z+65536 

QOSUS 1420 

PRINT Z$ 

GOTO 30 

ZS=STR$CZ) 

Z5 = RiaHTSCZ$, LENCZiJ-n 

IF LENCZ$)<5 THEN Z$=STRINQ$C5-LeNtZ» ) , 32J-I-Z* 

RETURN 

BS*"" 



THEN RETURN 
1) 
LENCAt)-n 



IF LENCA$)=0 

Si=LEFT*(R». 

Fl$=RIQHT$Cfl$, 

RETURN 

Z=0 

GOSUB 1460 

IF BJ<"0" OR B*>"F" THEN 1580 

IF B$>"9" AND B*<"A'* THEN 1580 

IF B$<="9" THEN 21 =ftSC(Bt)-48 ELSE Zl =ftSCCB») -S5 

Z=2«16+Z1 

GOTO 1520 
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1580 IF Z> 32767 THEN Z=2-65536 

1590 RETURN 

1600 IF 2 > 32767 THEN Z=2-65536 

1610 Zl= INT [2/256 3 AND 255 

1620 Z2=Z AND 255 

1630 2$="" 

1640 23=INTC21/16D 

1650 GOSUB 1710 

1660 23=21 AND 15 

1670 GOSUB 1710 

1680 Z3=INTCZ2/16) 

1690 GOSUB 1710 

1700 23=22 PiND 15 

1710 IF 23<10 THEN ZS=2»+CHR»(23+48D ELSE 2*=2$+CHR*C23+55) 

1720 RETURN 

1730 RESTORE 

1740 WR$="" 

1750 FOR X=l TO 127 

1760 READ A 

1770 WRS=WR$+CHRSCA) 

1780 NEXT 

1790 X=VARPTRCWR$5 

1800 X=PEEKCX+n+256*PEEK(X+2D 

1810 IF X>32767 THEN X=X-65536 

1820 R=X+95 

1830 R1=INTCR/256DAN0 255 

1840 R2=R AND 255 

1850 POKE X+66. R2 

1860 POKE X+67. Rl 

1870 POKE X+75, R2 

1880 POKE X+76, Rl 

1890 GOSUB 2140 

1900 GOSUB 2210 

1910 GOSUB 2140 

1920 GOSUB 2210 

1930 GOSUB 2140 

1940 PRINT"Filename"; 

1950 INPUT PNS 

1960 FOR X1=X TO X+5 

1870 POKE XI. 32 

1980 NEXT 

1990 FOR XI =1 TO LENCPN$) 

2000 POKE X-l+Xl. ASCCMID$tPN$, XI. in 

2010 NEXT 

2020 X=X+6 

2030 X1=INT(X/256DAND 255 

2040 X2=X AND 255 

2050 POKE 16526. X2 ^ 

2060 POKE 16527. XI 

2070 X1=USRC0) 

2080 GOTO 30 
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2090 DATA O. O. 0, O, 0. 0, 32. 32. 32, 32, 32, 32 

2100 DATA 42. 142, 64, 17. 250. 255, 25, 205, 63, 2, 62, 85, 205, 31. 

2, 6, 6, 126, 35. 205, 31, 2, 16. 249. IT. 244, 255. 25. 228. 221. 225 

, 221. 94, O, 221, 86. 1. 221. 110. 2, 221, 102, 3 

2110 DATA 175. 237. 82. 35. 124. 183. 40, 8. 6. 0. 205, O, 0, 37, 24, 

244. 125, 69, 183, 196, O, 0, 62, 120, 205, 31, 2 

2120 DATA 221, 126, 4, 205 , 31. 2. 221, 126, 5, 205, 31, 2, 201 

2130 DATA 62. 60, 205 , 31, 2, 120. 205, 31. 2, 123. 205. 31, 2, 79, 12 

2, 205, 31, 2, 129, 79. 26. 19, 205. 31, 2, 129. 79, 16, 247, 195, 31, 

2 
2140 GOSUB ISIO 
2150 Z1=INTC 2/256) AND 255 
2160 Z2=2 AND 255 
2170 POKE X. Z2 
2180 POKE X+1 , Zl 
2190 X=X+2 
2200 RETURN 
2210 GOSUB 1460 
2220 IF B$=" " THEN 2210 
2230 At=BJ+Al 
2240 RETURN 
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Dieser Monitor unterstuzt 7 Befehle, namlich: 

1. Hex -Dump 
Eingabe: Hadresse 

Ab der eingegebenen Adresse wird der Speicher inhal t in hexo- 
dezimal gelistet. Jewells nach Ausgabe einer Zeile wird die 
Tastatur ouf folgende Tasten abgefragt: 
<CLEAR> - Listing abbrechen. 

<Leertaste> - Listing anhalten, bis <RETURN> gedruckt wird. 
Die emzelnen Zeilen haben folgendes Format: 

Die ersten 4 Zeichen geben die Rdresse an, in der das erste 
der 8 Bytes, die in dieser Zeile gelistet warden, steht • 
Dann folgen die 8 Bytes und zum ScKlup, etwas abgesetzt, 
folgt die sogenannte Checksum. Dieses Byte ist das nieder- 
wertige Byte der Summe aller 8 Bytes und dient als Prufmog- 
lichkeit fur die Richtigkeit emer Eingabe. Al le Maschinen- 
programme in diesem Buch werden als Hex-Dump itiit Prufsumme 
gelistet, so da0 Sie eine einfache Moglichkeit haben, die 
Richtigkeit Ihrer Eingabe zu prufen. 

2. ASCI I -Dump 
Eingabe: Aadresse 

Ab der eingegebenen ftdresse wird der Speicher inhal t als 
fiSCI I-Zeichen gelistet. Oede Zeile beginnt mit der Adresse, 
in der das erste der 24 folgenden Zeichen steht, dann folgen 
die ASCI I -Zeichen. 3edes Byte unter 32 dez . wird als '.' 
dargestellt, um die Bi Idschirmausgabe nicht durch Codes wie 
'Backspace' etc. zu zerstoren. Auch beim ASCII-Dump kann die 
Ausgabe durch <CLEAR> abgebrochen und durch <Leertaste> an- 
gehalten werden. 

3. Edit hexadezimal 
Eingabe: Eadresse 

Ab der eingegebenen Adresse kann der Speicher inhalt veran- 
dert werden. Es wird jeweils die Adresse und der bisherige 
Inhalt dieser Speicherstel le ausgegeben. Sie konnen dann ein 
neues Byte emgeben. das dann in dieser Speicherstel le abge- 
legt wird. Wenn Sie statt einer Eingabe nur <RETURN> druk- 
ken , wird der Editmodus abgebrochen. 

4. Edit ASCII 
Eingabe; Tadresse 

Ab der eingegebenen Adresse konnen Sie Texte direkt in den 
Speicher eingeben. Die Adresse wird angegeben . ihr Inhalt 
Mird in hexadezimal und ASCII CCode Kleiner als 32 = '.'D 
ausgegeben. Sie konnen nun ein Zeichen eingeben. das an die- 
ser Speicherstel le gespeichert wird. Auch hier wird die Ein- 
gabe abgebrochen, wenn Sie nur <RETURN> drucken. Achtung: Um 
em Leerzeichen in den Speicher einzugeben. mussen Sie fol- 
gendes eingeben: " ". Dies liegt daran, da0 der INPUT-Befehl 
des Colour-Basic alle fuhrenden Leerzeichen ignoriert. eine 
Eingabe eines Leerzeichens allein also als Leerstring ange- 
sehen wird. 
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Go to memorv^ , 

Eingabe: Gadresse b^te 

Es Mird zu einem Programm gesprungen, das bei der eingegebe- 
nen Adresse beginnt. Wenn Ihr Programm mit einem CALL 0A7FH 
beglnnt, so kSnnen Sie ein Byte in das L-Register Ubergeben. 
Wenn Sie Ihr Programm mit einem OP OASftH beenden, so wird 
der Inhalt des L-Registers Mieder an das Basic Ubergeben und 
der Monitor gibt es In hexadezimal aus. 
Hexodezimal Rechnung 
Eingabe: Rzahll zahl2 

Zahll. Zahl2, ihre Summe und ihre Differenz werden in hexa- 
dezimal und (=ISCII ausgegeben. 
SVSTEM-Band schreiben 
Eingabe: Mstart ende einsprung 

Zusiitzlich wird noch ein Programmname abgefragt. Dieser Name 
darf maximal 6 Zeichen lang sein und das erste Zeichen itu0 
ein Buchstabe sein. Dann wird der Bereich von start bis ende 
im SVSTEM-Band-Format auf Kassette geschrieben. Urn dieses 
Band Mieder einzulesen, benutzen Sie den SYSTEM-Befehl des 
Colour-Basic und geben Sie den von Ihnen geMiihlten Programm- 
namen an. 



f^nmerkung: FUr das H und das ft-Kommando gilt: 

PHadresse bzw. PAadresse gibt das entsprechende 
Listing parallel auf Bildschirm und Orucker aus. 
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Erklarung des Programms: 

Zeile 10 - 20: Ini t ial isierung: Sildschlrm loschen und 

Stringspace vergropern. 
Zeile 30 - 50; Kommandoeingabe. Wenn nur <RETURN> gedriickt 

wurde, Eingabe wiederholen. 
Zeile 60 - 70: Erstes Zeichen der Eingabe lesen. Wenn P, 

DrucHerflag CPR) setzen und nachstes Zeichen 

lesen. 
Zeile 80 - 110: Kommando aus C^ heraussuchen und die ent- 

sprechende Routine anspringen: 

H * 130 

ft = 330 

E = 590 

T = 740 

6 = 900 

R = 1040 

M = 1730 
Zeile 120: Falls Zeichen hein zultissiges Kommando. wle- 

der zur Eingabe springen- 

Zeile 130 - 380: Hex-Dump 

Zeile 130 - 140: f=tdresse aus A^ in Z lesen und In X umspei- 

chern. 
Zeile 150 - 160: X in Hexader imalzahl in 2^ umwandeln. 
Zeile 170: Rdresse des ersten der folgenden 8 Bytes 

ausgeben. 
Zeile 180; Falls notig. Rusgabe zusatzlich auf Drucher. 

Zeile 190: PrUrsumme auf Null init ial is ieren. 

Zeile 200 - 260: 8 Bytes in hexadezlmal auf Bildschirm Cund 

auf DrucHerm wenn notlg) ausgeben und Pruf- 

summe berechnen. 
Zeile 270 - 320: Prufsumme ausgeben. 
Zeile 330; Startadresse urn 8 erhohen. 
Zeile 340: KB fragt eine Tastenreihe ab. 

Zeile 350t Wenn <CLEAR> gedrUcht , Sprung zur Kommando- 
eingabe. 
Zeile 360: Wenn nlcht <Leertaste> gedriickt, nfichste 

Zeile ausgeben. 
Zeile 370 - 380: Warten, bis <RETURN> gedriickt. dann nSchste 

Zeile ausgeben. 

Zeile 390 - 580; RSCII-Dump 

Zeile 390 - 400; Adresse aus fl^ in Z lesen und in X umspei- 

chern. 
Zeile 410 - 440: Startadresse der Zeile ausgeben. 
Zeile 460 - 500: 24 ASCI I -Zeichen ausgeben. 
Zeile 510 - 520: Cursor an den Anfang der n£ichsten Zeile 

brlngen. 
Zeile 530: Startadresse urn 24 erhGhen. 
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Zeile 540 - 580t Tastaturabf rage: 

<CLEAR> - Listing abbrechen 
<Leertaste> - Listing anhalten. 

Edit hexadezimal 



Zeile 


580 - 


T30 


Zeile 


590 - 


600 


Zeile 


610 - 


630 


Zeile 


640 - 


660 


Zeile 


670 - 


680 


Zeile 


690: 




Zeile 


roo - 


710 



Adresse aus ft$ in Z lesen und in X umspei- 
chern. 

fldresse und Trennstrich ausgeben, 
Bisherigen Inhalt der Speicherstel le X und 
zweiten Trennstrich ausgeben. 
Eingabe in A$ lesen. 

Wenn nur <RETURN> gedriickt wurde, Eingabe 
abbrechen. 

Das eingegebene Byte in ftdresse X ablegen. 
Oas Z ftND 255 dient dazu. sicherzustel len, 
da0 nicht aus Versehen eine Zahl groper als 
255 dez . gePOHEt wird. 
Zeile 720 - 730: ftdresse urn 1 erhbhen und Eingabevorgang wie- 

derholen. 

Zeile 740 - 890; Edit ASCII 

Zeile 740 - 750: Adresse aus ft$ in Z lesen und in X umspei- 

chern. 

Zeile 760 - 780: ^dresse und ersten Trennstrich ausgeben. 

Zeile 790 - 830: Inhalt der Speicherstel le X in hexadezimal 

und als ASCII-Zeichen ausgeben. 

Zeile 840 - 850; Eingabe in A$ lesen. 

Zeile 860: Wenn nur <RETURN> gedrucHt , Eingabe ab- 

brechen. 

Zeile 870: fiSCII-Mert des eingegebenen Zeichens in X 

ablegen. 

Zeile 880: Adresse urn 1 erhohen. 

Zeile 890: Eingabevorgang wiederholen. 

Zeile 900 - 1030; So to aeaory 

Zeile 900: Sprungadresse aus (=i| in Z lesen. 

Zeite 910 - 920: Zl = hoherwert iges Byte von Z. 

Z2 = niederMert iges Byte von Z. 
Zeile 930 - 940: USR-Sprungadresse festlegen. 
Zeile 950 - 970; Alle Leerzeichen am ftnfang von (=1$ wegstrei- 

chen. 
Zeile 980 - 990; Zu iibergebendes Byte aus R$ in Z lesen. 
Zeile 1000: Programm starten. Das Argument in Z iJberge- 

ben und das Ergebnis des Programms Mieder in 

Z abspeichern. 
Zeile 1010 - 1020: Ergebnis in hexadezimal ausgeben. 
Zeile 1030; Sprung zur Kommandoeingabe. 
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Zelle 1040 - 1410; Hexadezlmol rechnung 

Zeile 1040: Zahl aus Fl$ in Z lesen. 

Zeile 1050: Pus einer vorzeichenbehaf teten Zahl in 2 

eine positive Zahl in XI machen. 

C -32768 <= Z <= 32767: <= XI <= 65535 ) 
Zeile 1060 - 1080: Alle Leerzelchen am ftnfang von fl^ loschen. 
Zeile 1090: Zahl aus AS in Z lesen. 
Zeile 1100: ftus einer vorzeichenbehaf teten Zahl in Z 

eine positive Zahl in X2 machen Csiehe 

1050) . 
Zeile 1110: Kopf zelle der Tabelle ausgeben. 
Zeile 1120 - 1260: XI, X2, XI + X2 und XI - X2 In hexadezimal 

ausgeben. 
Zeile 1270 - 1400; XI, X2. XI + X2 und XI - X2 in dezlmal 

ausgeben . 
Zeile 1410: Sprung zur Kommandoeingabe 

Zeile 1420 - 1450; Zahl in Z in Dezimalstring umwandeln. 2^ 

enth&lt Zahl rechtsbUndig. 
Zeile 1420; z| = Zahl aus Z in Stringform. 
Zeile 1430; Vorzeichen aus Z^ entfernen. 
Zelle 1440: Falls notig, Z^ mlt Leerzelchen auf 5 Zei- 

chen auffiilVen. 
Zeile 1450: RUckUehr zum aufrufenden Programm. 

Zeile 1460 - 1500; Das erste Zeiehen aus ft^ in B^ iibertragen 

und fH% um ein Zeichen kiirzen. 

Zeile 1460: B$ loschen. 

Zeile 1470; Falls Pi^ leer ist, sofort zuriicKspr ingen. 

Zeile 1480: Das erste Zeichen von ft^ in B^ speichern. 

Zeile 1490: A$ um ein Zeichen Vsurzen. 

Zeile 1500; Rlichsprung. 

Zeile 1510 - 1590: Hexadezimalzahl aus ftj in 2 lesen. 

Zeile 1510: Z zunachst loschen. 

Zelle 1520; Ein Zeichen aus A^ tesen. 

Zeile 1530 - 1540: Falls das Zeichen Heine zultisslge Hexziffer 

ist C - 9 Oder ft - F ), Ende der Hexadezi- 
malzahl . 

Zelle 1550: Hexadezlmalzl f fer in si umwandeln In Oezi- 

malzahl In 21 . 

Zeile 1560: Z entsprechend erhohen. 

Zeile 1570: Schleife Miederhoten. 

Zeile 1530: Falls Z grower als 32767 1st, mup es eine 

negative Zahl sein Cdamit PEEK und POKE 
funht loniert J . 

2elle 1590: BucKsprung. 
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Zeile 1600 - 1720t Zahl in 2 in hexodezimal umwandetn und In 



Zeile 1600: 



Zeile 


1610: 




Zeile 


1620: 




Zeile 


1630: 




Zeile 


1640 - 


1650: 


Zeile 


1660 - 


1670: 


Zeile 


1680 - 


1630: 


Zeile 


1700: 




Zeile 


1710: 





Zeile 1720: 



Z^ ablegen. 
Falls Z groper als 32767 ist, mup es eine 
negative Zahl sein. 
Zl >: hOherwert iges Byte von Z. 
Z2 = niederwert iges Byte von Z. 
Z^ als leer ini t ial isieren. 
HochstMert ige Ziffer erzeugen. 
ZMelte Ziffer erzeugen. 
□rltte Ziffer erzeugen. 
Letzte Ziffer erzeugen. 

Zahl in Z3 in hexadezimale Ziffer unwandeln 
und an Z^ anhSngen. 
Rucksprung. 



Zeile 1730 - 2080; Write SYSTEh-Tape 



Zeile 
Zeile 



1730 ■ 
1 790 : 



Zeile 1800: 

Zeile 1810: 
Zeile 1820: 



Zeile 1830: 
Zeile 1840: 
Zeile 1850 
Zeile 1890 



Zeile 1340 
Zeile 1960 - 

Zeile 1990 

Zeile 2020 ' 

Zeile 2070: 
Zeile 2080: 



1780: liaschinenprograma in WR4 einlesen. 

X zeigt auf Eintrag der Variable WR^. 

In X steht die LHnge des Strings. 

In X+1 steht das niederwertige Byte der 
Rdresse. bei der der String im Speicher 
beginnt . 

In X+2 steht das hoherwertige Byte der 
Rdresse, bei der der String iw Speicher 
beginnt . 

X = fldresse. bei der der Stringtext ira Spei- 
cher beginnt. 

Rdresse in X fUr PEEK und POKE anpassen. 

R * Rdresse eines Unterprogramms innerhalb 

des liaschlnenprogramms. CGenauere ErlSute- 

rungen zu diesem Programm siehe nachstes Ka- 

pitel) 

Rl = hoherwert iges Byte von R. 

R2 = niederwert iges Byte von R. 
1880: Unterprogrammadresse in Programm POKEn. 
1930: Start-, End- und Einsprungadresse einlesen 

und in die ersten sechs Bytes des haschinen- 

programms POKEn* 
1950: Programmnanen in PN$ einlesen. 
1980: Byte Nr . 6 bis Byte Nr. II des Maschinenpro- 

gramms mit Leerzeichen fUllen. 
2010: Den Programmnamen in die Bytes 6 bis maximal 

11 des haschinenprogramms POHEn. 
2060: Startadresse des Programms fUr USR-Aufruf 

POKEn. 

Maschinenprogramm aufrufen. 

Zur Kommandoeingabe springen. 
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Zeile 2090 - 2130t Das Maschlnenprograwm fiir Write Tape. 
Zelle 2090 - 2120; Dos eigentliche Programm. 

Zeile 2130: Das Unterprogramn zum Schreiben eines Daten- 

blocVss. 

Zeile 2140 - 2200; Elne Zaht aus ftt lesen und lr\ X und X+l 

POKEn. 
Zeile 2140: Eine Zahl aus e\^ in Z lesen. 
Zeile 2150; Zl = hoherwert Iges Byte von Z. 
Zeile 2160: Z2 = niederMert iges Byte von Z. 
Zelle 2170; Das niederwert ige Byte wird in X gePOHEd. 
Zelle 2180: Oas hoherwertige Byte wird in X+1 gePOHEd. 
Zeile 2190: X Mird urn 2 erhoht . 
Zeile 2200: RUchsprung. 

Zeile 2210 - 2240; ftlle fUhrendan Leerzeichen aus ftt loschen. 

Zeile 2210: Ein Zeichen aus f\$ in B$ lesen. 

Zelle 2220: Wenn BS ein Leerzeichen enthSlt, Prozedur 

wiederholen. 
Zelle 2230; A$ wleder Korrigieren, 
Zeile 2240; RUcksprung. 



Nach der Er I jjluterung des Basic-Teils des Monitorprogramms hier 
nun noch ein Listing und die Er ISuterungen zu dem Maschinenpro- 
gramm, das die Bandaufzeichnung macht . 
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8404 


2ft 


8E 


40 


LD 


HL.C408EH3 


K. 


8407 


11 


Fft 


FF 


LD 


OE.FFFAH 


. « 


840A 


18 






AOO 


HL.DE 




840B 


CO 


3F 


02 


CALL 


023FH 


. 7 


840e 


3E 


55 




LD 


A.SSH 


>U 


8410 


CD 


IF 


02 


CALL 


021FH 


* ♦ 


8413 


06 


06 




LO 


B,06H 


* » 


8415 


7E 






LO 


A.CHLJ 




8416 


23 






INC 


HL 


tt 


8417 


CD 


IF 


02 


CALL 


021FH 


* « 


841A 


10 


F9 




D3NZ 


841SH 


* ♦ 


841C 


11 


F4 


FF 


LD 


DE.FFF4H 


« * 


841F 


19 






ADD 


HL.OE 




8420 


E5 






PUSH 


HL 




8421 


DO 


El 




POP 


IX 


♦ • 


8423 


00 


5E 


00 


LO 


E,CIX+OOHD 


>\ 


8426 


DO 


56 


01 


LD 


0.(IX+01H) 


.V 


8428 


DO 


6E 


02 


LD 


L,CIX+02H) 


.n 


842C 


DO 


66 


03 


LD 


H.CIX+03H) 


.r 


842F 


AF 






XOR 


A 




8430 


EO 


52 




SBC 


HL,DE 


.R 


8432 


23 






INC 


HL 


* 


8433 


7C 






LD 


A,H 




8434 


B7 






OR 


A 




8435 


28 


08 




JR 


Z,843FH 


c , 


8437 


06 


00 




LD 


B.OOH 


^ , 


8439 


CD 


57 


84 


CALL 


8457H 


,U 


843C 


25 






DEC 


H 


H 


843D 


18 


F4 




OR 


8433H 


* • 


843F 


70 






LO 


A,L 




8440 


45 






LD 


B,L 


E 


8441 


87 






OR 


A 




8442 


C4 


57 


84 


CALL 


NZ,8467H 


.M 


8445 


3E 


78 




LO 


A.78H 


>x 


8447 


CD 


IF 


02 


CALL 


021FH 


« « 


844f=) 


DO 


7E 


04 


LO 


A,(IX+04H3 


, ^ 


8440 


CD 


IF 


02 


CALL 


021FH 


, , 


8450 


DO 


7E 


05 


LD 


A,CIX+05H) 


, , 


8453 


CD 


IF 


02 


CALL 


021FH 


* * 


8456 


C9 






RET 






8457 


3E 


3C 




LD 


A,3CH 


X 


8459 


CD 


IF 


02 


CALL 


021FH 


* • 


84SC 


78 






LO 


A,B 


X 


8450 


CD 


IF 


02 


CALL 


021FH 


* « 


8460 


7B 






LD 


A,E 


a 


8461 


CD 


IF 


02 


CALL 


021FH 


* « 


8464 


4F 






LD 


C.A 





8465 


7A 






LD 


A.D 


z 


8466 


CO 


IF 


02 


CALL 


021FH 


* * 4 


8469 


81 






ADD 


A.C 




846FI 


4F 






LD 


C.A 





846B 


lA 






LD 


A.(OE) 




846C 


13 






INC 


DE 




846D 


CD 


IF 


02 


CALL 


021FH 


* * A 


8470 


81 






ADD 


A.C 




8471 


4F 






LD 


C.A 





8472 


10 


F7 




DONZ 


846BH 


♦ • 


8474 


C3 


IF 


02 


OP 


021FH 


« » 1 
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In dem Listing auf der vorherigen Seite beginnt das Programm 
bei fldresse 8404H. Dies kann jedoch nicht immer so sein. da 
die Strings imitter an anderen SteVlen abgelegt werden. Dies 
hSngt zum Beispiel davon ab. ob Ihr Rechner iiber 16 Oder 32 K 
RAM verfugt, ob obere RAM-Bereich durch Eingabe einer MEM SIZE 
geschiitzt wurden etc. Hierdurch taucht ein gropes Problem auf: 
Das Maschinenprogramm mup zum einen auf ftdressen zugreifen. in 
die das Basic -Programs die Start-, End- und Einsprungadresse 
des auf Band zu speichernden Speicherberelchs soMie den Pro- 
grammnamen abgelegt hat. Zum anderen wird in dem Programm zwei- 
mal ein Unterprogramm aufgerufen. Auch diese ftdresse mup Korri- 
giert werden. Dieses Problem lost schon der Basic-Teil der 
Write SYSTEM Tape Routine. In den Zeilen 1820 bis 1880 wird aus 
der Anfangsadresse des Programms der ftnfang des Unterprogramms 
berechnet und an den entsprechenden Stellen im elgent lichen 
Programm abgelegt tin diesem Listing waren dies die f^dressen 
843flH und 8443H). Um die Stellen zu finden, an denen das Basic- 
Programm die notigen fldressen und den Programmnamen abgelegt 
hat, wird dersetbe Trick benutzt, diesmal jedoch vom Maschinen- 
programm aus. 

In ftdresse 8404 wird das HL-Register mit dem Inhalt der Spei- 
cherzellen 408EH/'408FH geladen. Diese Speicherzel len enthalten 
die Startadresse der Routine, die mit dem USR-Befehl aufgerufen 
werden soil Ckennen Sie sichers 16526/16527 dez . ) . In diesem 
Fall wUrde HL also 8404H enthalten, denn dies ist ja die Start- 
adresse des Programms ' 

Die niichsten zwei Befehl ernledrigen HL um 6. soda0 es nun auf 
den Beginn des Prograamnamens Im Speicher zeigt. Nun wird 
zunachst eine ROM-Routine aufgerufen, die einen sogenannten 
Leader auf das Band schreibt. Dleser Leader sorgt daf Ur , da^ 
belm Lesen alle Bytes genauso gefunden werden, wie sie ge- 
schrleben wurden Csiehe nttchstes Kapitel : Format von SYSTEM- 
und CLOflD-BandernJ . Die Befehlafolge LO A.SSHs CALL 021FH zei- 
chnet das Byte 55H auf Kassette auf. Die Befehle in den ftdres- 
sen 8413H bis 841BH stellen elne Schleife dar, die den Pro- 
grammnamen auf Kassette aufzelchnet . Die Befehle in f^dresse 
841CH bis 842EH laden die Startadresse des Programms in DE und 
die Endadresse in HL . Nun wird die Differenz berechnet und in 
HL abgelegt. Fidresse 8433H bis 843EH stetlt wleder eine Schlei- 
fe dar, in der soviele 256 Byte lange BlScke vom Speicher auf 
Kassette iibertragen werden, wie durch die Programmlange angege- 
ben wurden. Dann wird noch C843FH bis 8444H3 , falls n&tig, ein 
kiirzerer Block ausgegeben, der die rest lichen Bytes enthSlt. 
Zum Abschlup wird die Einsprungadresse aufgezeichnet und in den 
Basic-Tell des Monitorprogramma zurtickgesprungen. 
Das Unterprogramm, das einen Block aufzelchnet, hat folgende 
Forms 

ZunJichst wird ein Byte 3CH aufgezeichnet, dann die Btockljinge 
aus dem B-Register. Dann folgen das niederwert ige und h6herwer- 
tige Byte der Startadresse des Blocks, dann alle Datenbytes. 
Zum 5chlu0 wird noch die PrUfsumme ausgegeben CSlehe niichstes 
Kapitel ) . 
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Das Format von SVSTEM-Banderni 

Eln Band, das mit dem SVSTEM-Berehl eingelesen werden soil. mu0 
folgendes Format haben: 



1 . Leader 



Dieser Leader besteht aus 256 Bytes AftH und 
einem Byte 66H. Oer Sinn dieses Leaders 1st 
fol gender : 

Jedes Byte wird bitweise ouf Kassette aufge- 
zeichnet . Es ist also wichtig. das der Rechner 
an der richtigen Stelle anfangt, zu lesen, urn 
die richtigen Bits zu eirtem Byte zusammenzu- 
fassen. Dabei hilft der Leader. Der Rechner 
liest Immer eln Bit vom Band und schiebt es 
durch das A-Register. Solange die Bytes AAH 
gelesen werden, enthalt das A-Register 
entweder AAH oder 55H ■ aber nie 66H . In dem 
Moment, in dem das f=l-Register 66H enthttlt. 
Mei0 der Rechner, da0 er die Bits nun richtlg 
in Gruppen zusammenfassen kann. 



2. Ein Byte 55H: Dieses Byte dient als Kennung fUr SYSTEM-Ban- 

der . 

3. Der Programn- Die nSchsten 6 Bytes geben den Programmnamen 
name an. Falls dieser kiirzer als 6 Zeichen ist, so 

sind die letzten Zeichen Leerzeichen, 

4. BlockUennung: Rls niichstes Byte folgt die sogenannte Block- 

Kennung. Ein Byte 3CH gibt an, da0 nun ein Da- 
tenblock folgt. ein Byte 78H gibt an, da0 nun 
die Einsprungadresse des Programms folgt. Alle 
anderen Bytes werden ignoriert und es wird 
welter nach 3CH oder 78H gesucht . 



DatenblocHs! 



Das erste Byte in einem Block gibt die Anzahl 

von Datenbytes an, die dieser Block enthalt. 

OOH entspricht dabel 256 dez. 

Das zweite und dritte Byte bllden die Ftdresse, 

ab der die Datenbytes Im Speicher abgelegt 

werden sol I en. 

Dann folgen die Datenbytes und zum Schlup noch 

ein Byte, die Checksum. 

Diese Checksum ist das nlederwert ige Byte der 

Suame alter Datenbytes plus das hoher- und 

nlederwert ige Byte der Ladeadresse. 



6. Einsprung: 



60 



Nach dem Byte 78H folgen das niederwert ige und 
das hOherwertige Byte der Einsprungadresse des 
Programms . 



Das Format von CLOftP -Bander n. 

Bandern, die mit dem CLOftD-Befehl geladen werden sollen, mtissen 
folgendes Format haben: 

1 . Leader 

2. Drei Bytes D3H 

3. 1 Byte fur den Programmnamen 

4. Der Programmtext , wie er im Speicher steht . Ende, Menn Linh 
OOOOH erreicht. 

Wichtig ist. dap der CLOflD-Befehl keln Priifsummen akzept iert 
und also das Gelesene in keiner Meise auT Richtigkeit Uber- 
priift . 
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Die Beer if fe "LSB" und "MSB" 

Wlr gehen davon aus, da0 Ihnen die Begriffe Bit, Byte und 
Hexadezlmalsystem vertraut sind. SoMte dies jedoch nicht der 
Fall sein, lesen Sie vorab Kapitel 31 des Handbuches 
"COLOUR BASIC - leicht gelernt". 

Was bedeuten nun die AbkUrzungen LSB und MSB "> 

LSB ist die engl ische ftbkiirzung fur "Lower Significant Byte", 
Mas sovlel bedeutet wie niederwert iges B^te. 

Entsprechend ist MSB die ftbkUrzung von "More Significant Byte", 
und bedeutet hoherMert iges Byte. 

LSB und MSB bllden zusammen eine 16-Bit Adresse «it der alle 

Spelcheradressen angesprochen werden konnen. 

64 K-Byte sind genau 65536 Byte die mit ftdressen »zwischen 

OOOOH und FFFFH CO bis 65535) angesprochen werden. 

Wenn man z.B. Adresse 44E2H ansprechen will, so ist das MSB=4flH 

und das LSB=E2H. 

Die dezimale Schrelbweise ergibt aich aus: 

44H - 68 dez. und E2H = 226 dez . , also &8K25&+226 = 17634. 

Man mul t ipl iziert also das MSB mit 256 und addlert das LSB 

hinzu. 

In der Z-80 Maschinensprache werden die beiden Adre0bytes in 
der Reihenfolge LSB/MSB abgearbeitet . Also z.B. OP 0066H nup 
als C3 66 00 eingegeben werden. 

Der Basic-Interpreter verhalt sich beim Gebrauch von Adressen 
und Variablen genauso (siehe auch "Links" und "Zei lennumaern" 
ia folgenden Kapitel). 
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Wle werden Basicprogramme abgespeichert ? 

Sie kennen natUrlich den Basic-Befehl "LIST". Dieser Befehl 

zeigt Ihnen in Klar lesbarer Form das Basicprogromm an. 

das im Speicher steht . 

Wie aber "merkt" sich der Computer das Programm intern - 

so wie Sie es auf de* Bildschirra sehen Oder etMa anders'> 

Und woher weip das Colour-Genie, wo es das Programm abspeichern 

sol l'> 

Diesen FragenhompVex wollen wir nun Klaren. Am Ende flnden Sie 

dann eine interessante ftnwendung. 

1. Die Basicprogramm-Pinfangsadresse: 

In den beiden Spelcherzel len 40PI4H und POPISH (16548 und 
16549 dez . ) steht die f^dresse. bel der das Basicprogramn 
im Speicher beginnt . 

Haben Sie beim Einschalten nicht <f10D seL> niedergehal ten, 

beginnt das Basicprogramra bei 5801H C22529 dez . ) . 

Dies lapt sich einfach tiberprufen; 

REf=lDV 

> PRINT PEEHCfcH40Pl4)+256»PEEH(8tH40R53 

22529 
READY 
>PRINT iHSeOl 

22529 
RERDY 
> 

Wenn Sie beim Einschalten die <MOD SEL>-Taste gedriickt 

haben, d.h. wenn der Speicher von 4800H t 18432 dez , J bis 

57FFH C22527 dez . D nicht fur die hochauf losende Grafik 

verwendet werden soil, beginnt das Basicprogramm bei 

Rdresse 4801H C18433 dez . ) . 

Ruch dies lapt sich leicht Uberpriifen: 

RE ROY 

> PRINT CPEEHC&H40R43+256*PEEMCtH40RSJ5=tH480t 

-1 

(Die ~1 bedeutet , da0 oblge logische Russage wahr ist.) 

2. Die Speicherung elnes Basicprogranms: 

Wlr wlssen nun, ab welcher Rdresse ein Basicprogramm im 

Speicher beginnt. 

Die Frage ist nun; Wie wird das Programm dort gespeichert. 

Um dies zu untersuchen, laden Sie den "Basic-Monitor", 

den weiter vorne auTgelistet finden, und den Sie auf ein 

Band gespeichert haben sol I ten. Wenn Sie dies ncch nicht 

getan haben, holen Sle dies jetzt rtach. 

Wir Mollen nun nit dem "Basic-Monitor" untersuchen, wie 

der Monitor selbst abgespeichert wird. 
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Wenn Sie beim Einschalten nicht <MOD SEL> gedrUckt hatten, 
beginnt das Programm im Speicher bei Adresse S801H. 
Starterx Sie nun den "Basic-Moni tor" mit "RUN". 
Geben Sie dann "H5801" ein - der Monitor macht nun ein 
hexadezi males Listing. Brechen Sie dieses nach der 7. Zeile 
mit <CLEAR> ab. Anschlie0end konnen Sie noch ein ASCI I - 
Listing dieses Speicherbereiches machen. Dazu geben Sie 
das Kommando "A5801" ein. Dieses Listing konnen Sie nach der 
3. Zeile ebenfalls mit <CLEFiR> abbrechen. Ihr Bildschirm 
sieht dann etwa so aus (Die Linien smd nachtraglich zur 
Orientierung eingezeichnet ; darunter sind hier noch die 
ersten vier Zeilen des "Basic-Monitors" zum Vergleich 
aufgelistet) ; 



C o ni m 
5 8 0' 

S 1 1 

81 S 

82 1 

SE9 

1 



"^ 5 8 1 H Q 1 8 -^ 1 S [ ll a 5 g} 
^4 OOI BS ?0 31 -^ r 30 l4 



8 F b D -^.U b 1 -IF 6 4 P ? fe] 



lQO 



t0lS9 dij 4 1 



O Ri ft! 

SO 1 
8 1 S 
S31 



54 05 22 £2 LH 33 3 
and"' H 5 S 1 

: ; : . i o o o ■■ : ■ " c 



O n: fa a O d 



hJ- 



^1 

and 



13 y 



esQ 



,:f 



B* 



hD 
hF 
D? 

6h 



10 CLS 

20 CLEAR 1000 

30 PRINT"Command"! 

40 INPUT i=U 



3ede Basiczeile hat im Speicher nun folgendes Format: 

1. 2 Bytes, die die Rnf angsadresse der nachsten Zeile 
angeben. t"Link"D 

2. 2 Bytes, die die Zeilennummer in hexadezimal enthalten, 

3. Der Text der Zeile. wobei alle Befehle in sogenannte 
"Tokens" verschlussel t werden. D.h., da0 ein Befehl 
nicht als Zeichenfclge gespeichert wird, sondern als 
ein Oder zwei Bytes. Eine Liste dieser Tokens Bit den 
zugehorigen Befehlen finden Sie in Anhang A. 

Alles, was keln Befehl ist , wird in normaler Text for* 
abgespeichert . 

4. Ein Byte OOH als Zeilen-End-Kennung. 

Das Programmende ist durch einen Link markiert, der 00 00 
ist . 

Dies klingt alles recht kompliziert, aber anhand des oben 
ausgedruckten Beispiels Mollen wir Ihnen das Prinzip 
nun verdeut I ichen. 
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Sehen wir uns zuerst einmal die erste Basic Zeile an: 

10 CLS 

Im Speicher steht: 

5801: 07 58 Dies ist der Link, d.h. die ndchste Zeile 
beginnt bei Adresse S807H. 
Beachten Sie, da0 die ftdresse 5807H, wie 
ublich, als 07 58 gespeichert Csiehe voriges 
Kapitel LSB/MSBJ . 

8803: OA 00 Dies ist die Zei lennummer : OOOAH = 10 dez . 

5805: 84 Dies ist das Token fur den Befehl CLS. 

wie Sie anhand Anhang A und Anhang B leicht 
iiberpriifen konnen. t84H = 132 dez.) 

5806: 00 Ende der Zeile 

Genauso lapt sich die zweite Programmzei le untersuchen: 

20 CLEAR 1000 

Im Speicher steht : 

5807: 12 58 Die nachste Zeile beginnt bei Adresse 5812H. 

5809: 14 00 Zei lennummer : 0014H = 20 dez. 

580B: B8 Token fur CLEAR C B8H = 184 dez . D . 

580C: 20 31 30 30 30 ASCI I -Text ' 1000'. 

5811: 00 Zeilenende. 



Analog dazu konnen Sie auch die zwei ndchsten Zeilen 
erkennen, soMie naturlich jede andere Basic-Zeile auch. 

Wie Sie Anhang A entnehmen konnen, sind die Dezimalwerte 
aller Tokens grower als 127, d.h. ein Token ist durch ein 
gesetztes Bit Nummer 7 gekennzeichnet C Im Gegensatz zu den 
ASCI I-Zeichen, die alle einen Wert kleiner als 128 haben - 
vergleiche dazu Anhang B) . 

Daraus ergibt slch, dap mit emem Byte nur maximal 128 
Befehle codiert Merden konnen, da das 7. Bit ja immer 
gesetzt sein mu(J. Beim gropen Befehlssatz des Colour-Genies 
reichte dies jedoch nicht aus. Aus diesem Grunde wurde ftir 
eine Reihe von Befehlen eine Codierung mit zwei Bytes 
geMahlt, Mobei das erste Byte immer FFH C255 dez.) ist. 
Der Befehl PLOT hat z.B. das Doppeltoken FFH 84H C255 dez. 
132 dez.) . 

In diesem Zusammenhang seien noch drei Besonderheiten 
der Abspeicherung erwahnt: 

1. Beim Befehl ELSE wird intern vor dem ELSE noch ein 
Doppelpunkt abgespeichert , der beim LISTen aber nicht 
ausgegeben wird. 

2. Der Befehl FCOLOUR wird durch 3 Bytes ausgedriickt : 
FFH 81K 52H C255 dez. 129 dez. 82 dez.) 

3. Die Kurzform des REM-Befehls (*) wird auf folgende Welse 
abgespeichert : 

3AH 93H FBH (58 dez. 147 dez. 251 dez.) 
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ftls letztes wollen wir nun eine Interessante Anwendung fiir 

das in diesem Kopitel ErKlarte bringen. 

Es Hommt ofters vor. dap man in einem Basicprogramm Telle 

des Programms selbst andern mochte. Dies ist nicht ohne 

weiteres mogllch - normal erweise mup man die entsprechende 

Zeile erst eingeben bzw. editieren und mup dann das Programm 

neu starten. 

Wenn man alterdings weip, wie Basicprogramme abgespeichert 

werden, kann man das Programm von sich aus Sndern. 

Ein wesentlicher Vorteil neben dem Eingabe-Komfort ist. dap 

bei dieser Nethode Keine Variablenwerte geloscht werden, 

Folgendes Programm ist nun ein Beispiel fur dieses Verfahren. 

Das Programm fragt nach einer mathemat ischen Funktion. Diese 

geben Sie ganz normal ein und sie Mird dann in das Programm 

"gePOKEd". flnschliepend werden noch Unter- u. Obergrenze, sowie 

die Schrittweite abgefragt. Das Programm berechnet dann elne 

Wertetabelle fiir die Funktion. 

Naturlich gibt es eine Menge anderer Anwendungen - lassen Sie 

mal Ihre Phantasie spielen ' 

Wichtig kann die Menntnis des Abspeicherver f ahrens auch sein, 

wenn man ein kaputtes Basicprogramm. in dem z.B. falsche 

Zeilennummern vorkommen, reparieren will. 



Programm I ist ing: 

10 CLEflR500:DEFINTA-V:CLS 
20 V=SINtXD JRETURN:REM 



Y = 



GDTD30 



: I 



F$ 



30 INPUT**Funhtion; 

40 Ft="Y="+F» 

50 T»="" 

60 PR I NT§40 , F J ; CHR$ C 30 J : X=6040 : T=205 

70 IFX=6095THEN130ELSERS=CHR$CPEEKCX)flNO127> tX=X+l 

80 IFPEEh(X)>12rTHEN100 

90 RS=Ri+CHRStPEEKCX));X=X+l:G0TO80 

100 IFLENCF*)<LENCR$}THENT=T+liGOT070 

1 10 IFLEFT$C F$ .LENCR») 3 < >R$THENT=T+1 : G0T070 

120 T»=T$+CHRSCT):F»=RIGHT»CF».LEN(F»)-LENCR»)):IFF$<>''"THEN60ELSE140 

130 T»=T$+LEFT»CF».l):F*=RIGHTStFS,LEN(F»)-lJ:IFF$<>""THEN60 

140 PRINTS40, ;:T$=T»+":"+CHR$(146J+":**+CHR$(1473 

150 X = PEEKC<cH40ft4)+2S6«PEEH(&H40ft5J 

160 X1=PEEK(X)+256*PEEKCX+1) 

170 IFPEEKCXl+2)+256*PEEKCXl+3)<>20THENX=Xl;Q0T0160 

180 Xl=Xl+4 

190 F0RX=lT0LEN(T»J:P0KEXl.RSCCriID»tT$,X.13):Xl=Xi+l:NEXTX 

200 0NERR0R60T02 1 1 G0SUB20 : ONERRORGOTOO t G0T0230 

210 IFERR=50RERR=llTHEN230ELSEC0L0UR3:PRINT**Fehlerharte Funht ion" : CALL 

357C:C0L0UR2 

220 IFINKEY»=*"*THEN220ELSERUN 

230 INPUT"Untergrenze":XU 

240 INPUT*'Obergrenze";XO 

250 IFXU>=X0THEN230 

260 lNPUT"Schrittweite";XS 

270 IFXS<=0THEN230 

280 FORX-XUTOXOSTEPXS 

290 QOSUB20iPRINT*'FC''jX;'') -";Y 

3O0 IFINKEY$»"'*THEN300ELSeNEXTX 

310 IFINKEY$-'"'THEN310ELSERUN 
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Erklarung des Programms : 

Zelle 10 ; Genug Platz fur Strings schaffen. zur Beschleunigung 
des Programmabl auf s al le nicht benutzten Variablen 
als Integer erMaren, den Bildschirm loschen und das 
eigentliche Programm starten. 

Zelle 20 : In dieser Zeile soil die Function als Unterprogramm 
abgelegt werden. Die 't' halten den Platz fur lan- 
gere Funktionen f rei . Das Unterprogramm besteht 
immer aus der Berechnung eines Wertes Y aus elner 
FunHtion von X. Das REM verhindert , da0 etwaige 
Rests langerer Funktionen zu einem SYNTAX Error 
fiihren. 

Zeile 30 : Die Funktion wird in F$ eingelesen. 

Zeile 40 : Der erste Teil des Unterprogramms ist Y=fCXK 

Zeile 50 : In T$ wird die codlerte Zeile generiert. 

Zeile 60 : Den noch zu codierenden Rest der Funktion ausgeben, 
X zeigt auf den Anfang einer Tabelle im ROM, in der 
samtliche BASIC-Schlussel worte stehen Cdiese Tabelle 
beginnt bei 1650H, in diesem Fall Murde jedoch erst 
bei den ar ithmet ischen Schliissel worten begonnen5 . T 
entspricht dem Token des momentanen Schlusselwortes . 

Zeile 70 : Wenn X = 6095, dann ist das Ende der ar ithmet ischen 
SchlUsselworte erreicht, also wurde kein passendes 
gefunden. Weiter Verarbeitung in Zeile 130. 

Zeile 70 CRestJ - Zeile 90 : 

Das momentane Schlusselwort wird in R$ eingelesen. 
Der erste Buchstabe des nachsten Schliissel wortes ist 
durch eln gesetztes Bit 7 gekennzeichnet , wenn ein 
solches Zeichen gefunden wird. enthalt R$ das kom- 
plette Schlusselwort. 

Zelle 100; Wenn der noch zu codierende Rest der Funktion kiirzer 
als das gefundene SchlUsselwort ist, kann es nicht 
passen. Nachstes Schliissel wort versuchen" 

Zeile llOi Falls der Rest der Funktion das Schlusselwort nicht 
enthalt, nachstes Wort versuchen i 

Zeile 120: Passendes Wort gefunden. Token an T$ anhangen, F$ 
entsprechend kurzen. Wenn FS noch nicht leer ist, 
weitermachen, sonst ist die Codierung beendet . 

Zeile 130: Diese Zeile wird angesprungen, wenn kein Token 

passt . Ein Zeichen aus F$ wird in T$ iibertragen, Ff 
wird gekiirzt. Wenn F$ noch nicht leer ist, weiter- 
machen, sonst ist die Codierung beendet. 

Zeile 140: l=»n T$ wird noch der Code fur ' :RETURN:REM' ange- 
hangt , um die Basic-Zeile zu komplett ieren . 

Zelle 150: X zeigt auf die erste Programmzei le. 

Zelle 160 - Zeile 170: 

Zeile 20 wird im Programm gesucht . Die Anfangs- 
adresse steht dann in XI . 

Zeile 180: Link und Zeilennummer werden ubersprungen. 
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Zeile 190: T$ wird in Zeile 20 kopiert. 

Zelle 200 - Zeile 220 : 

Zeile 20 wlrd auf Fehler getesliet . Die Zeile wird 
ausgefuhrt CGOSUB 20). Wenn kein Fehler ouftoucht, 
Mird zu Zeile 230 gesprungen, vorher Jedoch noch die 
Fehlerabfrage abgestellt (ON ERROR 60T0 0;60T0 230). 
Wenn ein Fehler auftaucht. so darf dies nur der 
FC-Error (Fehlercode 5) Oder der /O-Error CFehler- 
code 11) seln, sonst ist die Function fehlerhaft. 

Zelle 230: In XU wird die Untergrenze eingelesen. 

Zelle 240: In XO Mlrd die Obergrenze eingelesen. 

Zelte 250: Falls die Untergrenze gr50er Oder gleich der 
Obergrenze ist, wlrd die Eingabe wiederholt. 

Zeile 260: In XS wird die Schrlttwelte eingelesen. 

Zelle 270: Falls die Schrlttwelte Kleiner Oder gleich Null ist. 
wird die Eingabe wiederholt. 

Zeile 280: Schlelfe von XU bis XO mit der Schrlttwelte XS. 

Zeile 230: f^us X einen Y Wert berechnen und ausgeben. 

Zeile 300: Auf elnen Tastendruch warten, dann niichsten Wert 
berechnen und ausgeben. 

Zeite 310: Nach Beendigung der Schlelfe auf TastendrucK warten. 
dann Programm neu starten. 



Wie werden Basic~Var iablen abgespeichert? 

Die Basic-Var iabl en werden in zwel Untergruppen aufgeteilt, 
naml ich; 

- die nortrialen Variablen i z.B. A = J und die 

- Feldvariablen C z.B. DIM AClOOi ) 

Die normalen Variablen werden direl^t hinter dem Basic-Programm 
obgelegt Cdles ist auch der Grund, weshalb nach jeder Verande- 
rung des Programms alle Variablen geloscht sind. denn das 
Programn hann ja dadurch seine Lange verandern) . Die Anfangs- 
adresse dieses Speicherbereichs Cund damlt naturlich auch die 
Endadresse Ihres Basicprogramms) steht in den Speicherzel len 
40F9H/40FfiH C16633/16634 dez . 1 . In diesem Speicherberelch ste- 
hen die einzelnen Variablen nun einfach hintereinander , und 
zwar in folgendem Format: 

1 Byte Typcode Dieses Byte 1st so gewahlt, da0 es auch die 

Lange des Datenfeldes der Variable angibt : 

02 = Integer 

03 = String 

04 = elnfache Genauigkeit 
08 = doppelte Genauigt^eit 



2 Bytes Name 



Der Name wird umgekehrt abgespeichert. das 
heipt, die Variable Al helpt in Speicher lA, 
Einbuchstablge Variablen Mie A, B u.a. wer- 
den mit einem Byte OOH an erster Stelle 
abgespeichert Cz.B. OOH 41H = Variable ft), 
Der Sinn dieser Methode ist , dap in jedem 
Fall eln Kennbuchstabe direkt vor dem Daten- 
feld steht, dies erleichert den Vorgang des 
Suchens nach einer bestimmten Variable. 



2-8 Bytes 
Datenfeld 



3e nach Typ folgen nun die der Variable zu- 
geordneten Oaten: 



Integer 

Der Wert in LSB/MSB Format. 

Strings 

Das erste Byte gibt die Lange des Strings 
an. die beiden anderen, wo der String im 
Speicher beginnt. 
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Einfache Genauigheit 

Die ersten drei Bytes enthalten die Mantis- 
se, das vierte Byte den Exponenten. Die Man- 
tlsse ist folgendermapen struHturiert ; 

Das 3. 8yte ist das hochstwert igste, dann 
folgt das zwelte und das erste Byte ist das 
niederMert igste . Diese drei Bytes zusammen 
ergeben eine 24*bit Zahl . wobei das hochste 
Bit das Vorzeichen der Mantisse angibt 
( = positiv ). Das hochste Bit des Expo- 
nenten gibt an, ob der Binarpunkt nach 
rechts Oder nach links verschoben wird 
C = rechts D, die restlichen sieben Bits 
geben an, utii wieviele Stellen der Punkt ver- 
schoben Mird. 

Doppelte Genauigkeit 

Die Struktur entsprlcht genau der oben ge- 
schilderten, doch die tiantisse ist insgesamt 
56 Bits lang. 



Nach der Variablentabet le folgt der Speicherberelch, in dem die 
Fetder abgelegt Merden. Der Beginn dieses Berelches steht in 
den Adressen 40FBH/40FCH C 16635/16636 dez.3. Der Eintrag fUr 
eln Feld sieht nun fol gender mapen aus ; 



I Byte Typcode 



Mie bei Variablen: 

02 = Integer 

03 = String 

04 = Einfache Genauigkeit 
08 = Doppelte Genauigkeit 



2 Bytes Name 



Die f^bspei Che rung des Namens entspricht der 
bei normalen Variablen. 



2 Bytes Lange 



Die folgenden zwei Bytes geben an, wieviel 
Speicherplatz das Feld ben5tigt. Menn man zu 
der Adresse, in der das erste dieser belden 
Bytes steht, diese Lange + 2 addiert , erhSlt 
nan die Adresse. bei der das nSchste Feld im 
Speicher beginnt . 



1 Byte 
Dimension 



Dieses Byte gibt an, Mieviele Dimension das 
Feld hat. 
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n * 2. Bytes Nun folgt fiir jede Dimension deren Lfinge. Da 
Dimension jede Dimension von bis zum maximalen Index 

ongesprochen werden kann, steht hier der 

maximale Index + 1. 

Datenfeld Schlieplich folgen die Daten> die das Feld 

enthait. Ihr Format entspricht dem der Daten 

von norma I en Variablen. 

Die Daten sind f olgenderma0en sortiert; 

Gehen wir von dem Feld AC2,1) aus. Dann 

steht Im Spelchert 

ACO.O): Atl.O): flC2,0)i ACO.l)! ftCl.l); 

A(2,l) 

Das Ende des Speicherbereichs , in dem die Felder abgelegt wer- 
den und sonit der Beglnn des freien Speichers steht in den 
Adressen 40FDH/'40FEH (16637/16638 dez.3 
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Zusammen laden von aehreren Basicprogrammen 

Sie kennen sicher das Problem, dap man zwei Basicprogramme an- 
einanderhangen mochte, ohne einen der beiden Telle neu eintip- 
pen zu milssen. 
Abhilfe schafft folgendes Vorgehen: 

1. Das Basicprogramm mlt den kleinsten Zellennummern mlt CLOAD 
I aden . 

2. Eventuell Programm andern... 

3. Folgende Zeile eingeben Cohne Zei lennummer n : 

A = PEEKC«iH40F9)+256*PEEKC«cH40Fl=l) :fl=(=|-2 : P0HEfcH40Fl4 , A- INTC A/256 
) »256 : POHEfcH 40ft5 . I NT C fl/256 J 

CZur Erhlarung der Adressen 40F9H/40FAH siehe Kapltel: 
"Wie werden Variablen abgespeicherf^" 5 

4. Nachstes Basicprogramm mit CLOAD laden. Mlchtig 1st. dap 
dieses Programm Heine Zellennummer enthalt, die hleiner oder 
gleich der hochsten Zellennummer 1st. das als letztes gela- 
den wurde. 

5. Schritte 2 bis 4 aooft wiederholen, bis alle Teilprogramme 
einmal geladen wurden. 

6. Folgende Zeile eingeben tohne Zellennummer I ) : 
P0KE&H40A4 . I : P0KEtH40A5 , 88 

7. Nun slnd alle Programme vorhanden und Sle konnen mit Ihnen 
arbeiten. 

Bitte beachten Sie: 

Schritt Nr. 6 gilt nur. wenn Sie beim Einschalten nicht die 
MOD SEL-Taste gedriickt hatten und keine Programme wie den 
Colour-Compiler oder den Colour-Assembler geladen und gestartet 
haben. Dies alles verSndert die Startadresse des Basicpro- 
gramms (slehe Kapitel "Wie Merden Basicprogramme abgespei- 
cherf? "J. In einem solchen Fall geben Sie vor Schritt 1 fol- 
gende Zeile ein (ohne Zellennummer 3 : 
PRINTPEEHt«tH40A43 ! PEEK( tH40A53 

und merken sich die beiden Zahlen, die nun ausgegeben Merden. 
In Schritt Nr. 6 tauschen Sie nun die 1 gegen die erste und die 
88 gegen die zweite der beiden Zahlen aus. 
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Reservlert 

Sle hassen doch slcher auch die Situation, dap ein Programm 
Ihnen anzelgt: "Bitte geben Sie bei MEM SIZE'> 32000 ein." 
Mlt den folgenden Zeilen k6nnen Sie in Ihren Basicprogrammen 
elne Speicherobergrenze fUr das Basic neu festlegen. Sinnvoll 
ist dies, Menn man, Hombiniert mit dem Basic, Maschinensprache- 
programme verwendet . 

10 CLEAR 50 

20 Hfl-PEEKC8tH40Bl)+256«PEEK(«iH40B2J 

30 Hft=32000:'3e nach Bedarf festlegen 

aO H2=INTCHfl/256JiHt=HPl-H2*256 

50 P0KEtH40Bl.Hl:P0KEfcHa0B2.H2 

60 P0KE«lH40D6 , H 1 t P0KEfcH40D7 , H2 

70 CLEAR50 

80 REM Hler folgt Ihr BasicprograK* 



In Zeile 20 Mlrd die alte Speicherobergrenze gelesen. 

In Zeite 30 wird die neue Speicherobergrenze festgelegt, 

CHler 32000: Ihren Wunschen entsprechend andern) 

In Zeile 40 wird die 2-Byte-Integerzahl filr die neue Obergrenze 

in zwei einzelne Bytes zerlegt. 

In Zeile 60 und 60 werden diese neuen Werte in die Basicspei- 

cheradresse und Strlngvariablenadresse geschrieben. 

Die Zeiien 10 und 70 sind notwendig und durfen nicht entfernt 

werden. 
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ftusgabe der Bytes 0,11 Oder 12 an den OrucHer 

Das Basic-ROM des Colour-Genie Mandelt die Bytes 11 dez . tTop 

of form) und 12 dez. CFormfeedJ in eine Folge von lOer Cdez.) 

Bytes C Linefeeds) urn. 

Das Byte O Mlrd tiberhaupt nicht ausgegeben. 

(Zum Vergleich honnen Sie die entsprechende ROM-Routine Mit 

einem Disassembler listen: Sie beglnnt bei Rdresse 04E7H und 

endet bei Rdresse 0563H.) 
Das heipt also, dap die Befehle LPRINT CHR|cO), LPRINT CHRicil) 
und LPRINT CHR$(12) nicht die Werte 0,11 und 12 an den Drucker 
ausgeben > 

Dies kann, je nach angeschlossenem Drucker, zu einigen 
Probtemen fiihren. So kommt es bei der Programmierung von 
hochauf losenden Grafiken uber Elnzelnadelsteuerung CBit-tmage- 
Qrafik) oft zu falschen Ausdrucken. Ferner ist die Tabulator- 
programmierung des Druckers oft beschrtinkt. da Byte 11 (dez.) 
das Steuerzeichen fur einen vertikalen Tabulator ist. Elne 
anderes Problem ist z.B., dap man beim Star-Drucker DP 510 die 
Unterstreichung hilfs elnes Bytes 00 abschaltet. Rile diese 
Probleme kann man mit folgenden Basic-Zeilen losen. die mit 
GOSUB 100 aufgerufen werden. Der RSCII-Wert des auszugebenden 
Zeichens steht dabel in Variable X. 

100 SOUND 7,127 t 0UT248,15 t IF CINPC249) AND 239) = 47 THEN 

110 ELSE 100 
110 SOUND 7,127 : SOUND 14, X : SOUND 7.255 : SOUND 15,0 : SOUND 

15,1 : RETURN 

Zeile 100 prUft, ob der Drucker druckbereit ist. In Zeile 
110 wird der Wert X an den Drucker ausgegeben. CZur Rusgabe 
von Buchstaben vergleiche Rnhang B.) 

Natiirlich kSnnen Sie die Zeilennummern so andern. dap Sie in 
Ihr Programm passen. Rls RnMendungbelspiel fUr obige Zellen 
folgt nun ein kleines Programm, dap auf dem STRR-Drucker DP 
SIO/DP 515 ein kleines Pferd ausdruckt : 
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Das Programm flnden Sie auf der nSchsten Seite aufgellstet. 
Beachten Sie, dap das Programm nur auf dem STRR-Drucker 
DP 510/515 lauft. In den Programmzei len 260 und 270 finden 
Sie ubrigens die oben aufgefUhrten Rusgabezeilen. 
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50 LPRINTCHR$(27);"S" 

60 DEFINTA-Z 

70 PRINT"Haben Sie etwas eeduld,ich drucke glelch" 

80 FORZ=1T010 

90 LPRINTCHR$C27r*H"CHR»C86J j :X=0:G0SUB260 

1 00 FORC = 1 T086 1 RE RDX : Q0SUB26O : NE XT 

110 LPRINTCHR$C27r'a"CHR»C16)f:NEXT:LRPINT!END 

120 DATRO. 0.0. 0.0. 0,0, 0,0, 0,0, 0,0, 0,0, 0,0. 0,0, 0,0, 0.0. 0,0, 0,0, 0,0, 0,0, 

0,0, 0,0. 0.0, 0,7, 7, 15. 15. 15, 3. 2. 0,0, 0,0. 0,0, 0,0, 0,0, 0,0. 0.0, 0,0, 0.0. 0.0 

.0.0.0.0,0,0,0,0,0,0,0,0,0,0,0.0.0,0,0.0 

1 30 DATRO ,0,0,0,0.0,0.0,0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

O , O , , , , , 64 , 65 , 1 95 . 255 . 255 , 255 , 255 , 243 ,96, 0,0, 0,0, 0,0, 0,0, 0,0, 0.0.0 

,0,0, 0.0, 0,0. 0.0. 0,1, 1,1, 3, 3, 3, 3, 7. IS. 16. 0,0. 0.0. 0,0, 0,0 

1 40 DATRO ,0,0,0,0,0,0,0.0.0.0,0,0,0.0.0.0,0,0.0,0.0,0.0,0.0.0.0.0.0.0, 

0,0.0,0,0,0,0,249,255,255,255,255,255,255.255,15.1.1.1.1,1,0,0,0,0.0,0 

,0,1,7,15.31,63,127,127,255,255,265.255,255.255.255.255,255.255,255,12 

7,7,0,0,0,0,0.0.0 

150 DATRO, 0,0, 0,0, 0,0, 0.0, 0,0, 0,0, 0,0. 0,0, 0.0, 0,0, 0,0, 0,0, 0,0, 1,1,1,1, 

1.0,0,0.0.0.1.7.31,255,255,255.255,255,255,255.255,255,255,207.207,255 

,79,127,47,63,63,255,255,255,255,255.255.255.255.255.255,254,252,148,2 

1 2 . 246 , 242 , 254 . 254 , 255 , 255 , 254 , 254 . 1 2 

160 DRTACO.O.O.O 

170 DATRO. 0,0. 0.0, 0,0, 0,0, 0,0, 3, 7, 31, 28, 56, 48, 51, 63, 31, 31, 63, 63, 127. 12 

7.255.255,255.255,255,255,255.255,255.255,255,255,255,255,255.255,255, 

255 , 255 . 255 , 255 . 255 . 256 , 255 , 255 , 255 , 255 , 255 . 255 , 255 , 256 , 255 , 255 , 255 . 25 

5 , 255 , 255 . 255 . 255 . 265 , 255 , 265 

1 80 DATA255 .3.0,0,0.0,0.0.0.0.0,0.0,0.0,0,0,0,0 

190 DATRO, 0.0, 0,0, 0,0, 0,1, 31, 127,255,265,192.0.0.240,254,255,255.255,2 

55 , 265 , 255 , 255 . 255 . 255 . 255 , 256 , 255 , 265 . 265 , 265 , 255 , 255 , 255 . 265 , 255 . 255 

,256.255,255.255.255.255,255,255.255.255,255,255,255,255,255,255,265,2 

55 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

200 DATA256 , 255 , 255 . 255 , 247 ,3,1.0,0,0,0,0,0,0,0.0,0,0,0,0,0,0 

210 DATRO, 0,0, 0.0. 0.7. 63. 255. 256. 255. 252, 192.0.0.0,0, I .255.255.255.266 

,254.252,248.240, 192, 132.225,255.256,265,254,248,224.0,0,0,0, 128, 128, 1 

28,128,192. 182, 192,224.224,224, 192 , 192, 123, 128, 128. 136, 266,255,255,252 

,240, 128, 128, 192, 192, 192,224 

220 DATR224, 240. 240, 248. 248, 262. 124,31, 15.7.3, 1 ,0.0,0,0,0,0,0.0 

230 DATRO. 0.0, 3, 31, 255, 266, 255, 264, 240, 128,0,0,0,15,31,127,252,248,240 

,192,0.0,0,0,0,0.32.240.240.248,248,28,30,15,7,3,1.0,0.0,0,0,0,0,0.0.0 

.0.0.0.0.3.63.254,248.224,0,0,0.0.0.0.0.0.0.0.0,0,0,0.0.0,0.0.0,128.19 

2,224.240.112,62,31,7,7,3 

240 DATRO, 0.128, 192, 192,224. 224, 192,0,0, 0,0,0, 15,255,256, 128.0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0.0,128,192, 236 , 252 ,1 26, 14. 0,0. 0.0, 0.0. 0.0. 0.0. 

240.254,254,14,6,0.0,0,0.0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0.0,0 

,0,0,0 

250 DATAO, 0,0. 0,0, 0,0, 0,0. 0.0, 0,0, 8, 252, 252, 28. 12, 4. 0.0. 0,0, 0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0.0,0.0.0,0,0,0,0,0,0,0,0,0.0.0.0,0,0.0.0.0,0, 

0,0.0,0,0,0.0.0,0.0,0,0,0.0.0,0,0.0.0,0,0,0,0.0 

260 SOUND7 . 1 27 ; 0UT248 . 1 5 1 I F CI NP ( 249 ) AND239 J -47THEN27OELSE260 

270 S0UND7 , 1 27 j SOUND 1 4 , X : S0UN07 . 255 : SOUND 15,0: SOUND 15,1: RETURN 
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ftusgabe von Tabulatoren gro&er als 40 auf den DrucHer 

Oer Basic-Interpreter Ihres Colour-Senie ist so auf gebaut , dap 
Sie an Jeder Stelle einer Blldschirmzeile eine Tabulatormarhe 
setzen honnen. 
Rnalog dazu behandelt der Interpreter den DrucKer, 

Beachten Sle aber t 

Elne Bildschirmzelle hat 40 Zeichen. Oaher ist das Setzen einer 
Tabulatormarke auf eine Position > 39 mit dea TAB-Befehl auch 
auf dem Drucher nicht m6glich. Benutzen Sie in solchen Fallen 

statts 10 LPRINT TRB(T)f"Text" 

folgendes: 10 LPRINT STRING^CT-PEEK(«tH409BJ ,32) f "Text" 

Wie beim TAB-Befehl gilt natUrlich auch hier: 

0<= T <=" maximale Zeilenl&nge - 1. 

Beachten Sie, dap am Anfang eines Programms, in deo diese Me- 

thode benutzt wird, ein CLEAR Z stehen mu0. Mobei Z >= Zeilen- 

ISnge sein «up. Sonst K^nnte ein OS COut of StringspaceD Error 

auftreten. 
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Interessante ROM-CftLL'a 

■ .11 I 1 1 , ,, w,:^m.* m i ^ 

Im folgenden slnd elnlge nlitzliche ROM-Rout inen aufgelistet und 
Hurz erklart, die dem Programmierer, der Erfahrung in Maschi- 
nenspracheprogrammierung hat, viel Arbeit abnehmen konnen. 
An besten 5chaut nan slch die Rout inen, die beschrieben sind, 
mit den Disassembler eines Maschinensprache-Monitors an. 
Im iibrigen sei erwahnt , da0 nur die wichtigsten Rout inen auf- 
gefuhrt sind. da in nachster Zeit ein komplettes. dokunen- 
tiertes ROM-Listing zur Verfugung stehen wird. 

OOOOH System-Kaltstart 

0008H Basic Syntax-Check. Wird uber RST 08 aufgerufen 
Das Byte hinter den RST 08 Code wird mit (HL) 
verglichen. Menn ungleich dann "?SN Error". 

00i8H CP HL,DE . Vergleicht das Doppel register DE mit HL . 

HL > DE C=0 2=0 

HL = DE C=0 Z=l 

HL < DE C=l Z=0 

002BH INCH. Liest einen Tastendruck In Rkku. f\*0 keine Taste. 

0033H DUTCH. Gibt den Rkkuinhalt als Zeichen auf die aktuelle 
Bi Idschirnposi t ion in 4020H/4021H aus . Zeichen kleiner 
20H werden als Control -Zeichen akzept iert tCursor Hone. 
Clear to End of Line usm.) und bei Bedarf Mird der 
Bi Idschirminhal t gescrollt. 

003BH PRTCHR. Gibt das Zeichen in A auf den Drucker aus. 

0040H INLINE. Liest ab HL als Buf feradresse (norm. 41E8H) 
maximal B Zeichen von der Tastatur ein. Das letzte 
Zeichen ist ODH (RETURN). Bei BREAK ist das Carryflag 
gesetzt . Bei RET steht HL wieder auf Buffer und B ent- 
halt die Zahl der eingegebenen Zeichen. 

0049H Wie INCH, jedoch wird auf Tastendruck gewartet. 

0060H Martet BC-Registerinhal t * 14.66 )is . 

0066H Basic-Warnstart . Legt den Basic-Stackpointer neu an und 
springt anschliepend Nieder zum Basic ">READY'', 

01C9H CLS, LOscht Bildschirn Uber ICH ■ Cursor Home und 
IFH " Clear to End of Frame Codes. 

01D3H RANDOM. Crzeugt neue RND Merte. 
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01E4H Lapt das rechte '*' blinhen durch XOR OAH . 

OlEDH Read Byte. Ein Byte uber Kassettenport irt fl lesen. 

021FH Write Byte. Akkuinhalt auf Kassettenport schreiben. 

023FH Write Sync. 256 » flAH und einmal 66H auf Kassettenport. 

024CH Read Sync. Wartet auf Synchronlstatlon. 

0314H Llest ein Ooppelbyte LSB/MSB von Kassette In HL. 

OfiTFH CINT. ObertrSgt die Basicvariable X C4121H/4122H) in 
das HL Reglsterpaar . 

0A3FIH Ubertr«gt HL in die Variable X. (Anm.i X ist eine 

Variable, die vom Basic-Interpreter in den Adressen 
4121H rr. angelegt wird und keine Variable des normalen 
Basic's ' M ) 

OFAFH LINENR. Gibt HL als dez. Zahl ohne Vorzeichen aus (z.B. 
Zei lennumner) . 

1650H ASCII Tabelle der Basic-Tokens. Erstes Byte Jewel Is nit 
gesetztem Bit 7. Sortiert nach aufsteigenden Tokens. 

1822H Sprungtabelle zu den Tokens. Enthait die Einsprung- 

adressen der entsprechenden Rout Inen als Doppel bytes. 

2B01H Veritiandelt Rusdruck ab CHL) in eine Integerzahl in DE. 
Nachher steht HL auf de« ersten Byte nach den Rusdruck. 
Dient zur Ubernahae von Zahl en Oder Rusdriicken in 
Masch 1 nenspr ache . 

2B1BH Verwandelt Rusdruck ab (HL) In eine Zahl < 256 dez. 
Wert steht hlnterher Im Rkku, sonst wie 2B01H. 

2B75H Print String ab CHL5. Bel CHL)»0 RET. 

38R9H FGR. Schaltet Bildschira auf FQR urn. 



38B0H L6R. Schaltet auf LGR UK. 

38CCH COLOUR n. Mobei n-l Ik Rkku stehen uup tO...F). 

38DRH FCOLOUR n. Wobei n-l im Rkku stehen mup CO... 3). 

3FB0H CHRR n. Schaltet auf CHRR n. Im Rkku mup n-l stehen, 
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^ n fJrr^u. njrrr^ Jfr^ kJiPetU' $ ^J /a-s ¥crr> , ^ j ij> ^f' C^'i ^^ /'^ "f 



Hcit 5ie der Birisebaule Ee i EihensaiE It-ires 
Calaur— Genie auEih 5c:hon e i nmci I set ana' 
UB b t 1? Donn gBben Sie m i t. EJeiTt "Bci5kc: — 
riEirtitciE"" ader eineiii andei^en nnnilar das 
ncjchf □ L aende Hei<-Li5ling ein CDie Pruef — 
suRtnten Qin Ende j eder Be i L e uer-den r)ic:h\ 
B) i 1 e i riEiBgebBn> . Bek/or Sib JedDCt~i den 
nnniiar loden* muesseri Si a bei FIEn 5 1 BE 
den Uerl 3 1 ^^Bb eingebBn^ uin sias PrQctrctmin 
Bu 5izhuBtBBn. fJachdBEn Sie dos Prosr^cjinin 
BingesBbBn und alle PruBf sumraBn ^'Br^li- 
chen haben^ schre i ben Sib oIIbs mil dem 
U-EBfehl Eiui KosseIVe^ UICCE "IFFF ^CO^ . 
Dann koBnnBn 5iE das Se t chensD tepragrEJirint 
mil GICOE storlen. Mun UBrden alle P5CI 1 
Eeicben in dBr neuen SE=br b f t aussesBben . 
Da die neue 5E=hr i f 1 mil den dBfinierba- 
ren Ee i chBn erBEugl wird, duerfen Sie 
nur diE Se i chEn i Eia bis IBR uEndet i n i Eren 
und muessen i innter aui CHRR I blekben. 
Den narmalcn BBichensaie kaennBn Sis 
UBilBr-bin darsleilen^ i ndem 5iE den Uer 1 
des EeichBns in den B i i dsch i r-iFi POKEn . 



Ermsrung der FunHt ionswelse des Progromms 

Nach dem im folgenden abgedrucHten Hex-Listing des Programmes, 
tinden Sie ein disassembl iertes Listing der Routine, die den 
neuen Zeichensatz init ia". isier t . 

Bei 7CD2H werden HL,DE und BC fUr einen "^ransfer eines Kleinen 
Programms von 7CC0H bis 7CD1H nach 43A0H vorbereitet. Dieses 
kleine Programm wird uber den PRINT-DCB (Device-Control -Block) 
angesprungen, dessen Zeiger nach 43A0H 'verbogen' wird. 
Wenn das Programm angesprungen wird, steht im C-ftegister des 
Z-80 der Wert des auszugebenden PiSCI I-Zelchens . 

Wenn er Kleiner als 20H oder groOer als 7FH ist, bleibt er er- 
halten. Andernf al I s wird 80H dazuaddiert , d.h. atis dem Zeichen 
'I* daP den FiSClI-Code 21H hat wird also in ftlH uragewandelt, 
wahrend z.B. ein Cursor-Home-Code ICH als ICH erhalten bleibt, 
damit der Basic-Interpreter Ihn noch erhennt . 
Bei 7CDDH wird der PRINT-DCB nach Rdresse 43ftOH verbogen. 
Der OCB ist eine Doppelbyte-f^dresse, die vom Basic-Interpreter 
im BAM abgelegt wird. Normal erweise zeigt sie auf eine ROM- 
Adresse Chier 30E4H5 , kann aber bei bedarf geandert werden. 
Man kann also den Basic- Interpreter dazu veranlassen, bei einer 
Zeichenausgabe in ein eigenes Programm zu verzweigen. 
Die ftdressen der DCB's slnd folgende: 

401EH = Display 401&H = Keyboard 4026H = Printer 
Anschliepend werden bei Pidresse 7CE3H HL,DE und BC flir den 
Transfer des Zeichensatzes von 7D00H bis 7FFFH nach F500H 
vorbelegt. Nach dem Transfer mit LDIR wird noch der Zeichensatz 
CCHftRn) iiber die ROM-Routine bei 3FB0H geandert. Im R-Reglster 
steht dabei der CHAR-Wert minus eins. FUr CHAR 1 also 0, was 
hier iiber XOR A erreicht wird. Zuletzt folgt ein Sprung zum 
BASIC-Warmstart bei Adresse 0066H . Von nun an werden alle 
Zeichen im Bereich zwischen 20H und 7FH au' AOH bis FFH erhoht . 
Wenn Sie wollen k5nnen Sie die Zeichen naturlich auch noch 
ab8ndern, z.B. mit Hilfe eines Zeichenedi tors. 
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7CC0 F5 79 FE 20 38 07 FE 80 49 

7CC8 30 03 C6 80 4F Fl C3 E4 60 

7CD0 30 OO 21 CO 7C U AO 43 81 

7CD8 01 11 00 ED BO 21 AO 43 B3 

7CE0 22 IE 40 21 00 7D 11 00 2F 

J^CE8 F5 01 00 03 ED BO AF CD 12 

7CF0 BO 3F C3 66 00 00 00 00 18 

7CF8 OO 00 00 00 00 00 00 00 00 

7D00 00 00 00 00 00 00 00 00 00 

7D08 18 18 18 18 18 00 18 00 90 

rOlO 24 24 24 00 00 00 00 00 60 

7D18 24 24 7E 24 7E 24 24 00 BO 

7D20 18 7E 40 7E 02 7E 18 00 EC 

7D28 60 66 OC 18 SO 66 06 00 86 

7D30 30 48 48 30 &f\ 64 3A 00 F8 

7038 18 18 18 00 00 OO OO 00 48 

7D40 OC 18 30 30 30 18 OC 00 D8 

7048 30 18 OC OC OC 18 30 00 B4 

7D50 18 5A 3C 18 3C 5ft 18 00 74 

7D58 00 18 18 7E 18 18 00 00 DE 

7060 00 00 00 OO 18 18 30 00 60 

7068 00 00 00 7E 00 00 00 00 7E 

7070 00 00 00 00 00 18 18 00 30 

7078 00 04 08 10 30 60 00 00 AC 

7080 7C 44 4C 54 62 62 7E 00 A2 

7088 10 10 10 lO 18 18 18 00 88 

7090 7C 04 04 7C 60 60 7E 00 3E 

709S ?C 04 04 IE 06 06 7E 00 2C 

70AO 42 42 42 7E 06 06 06 00 56 

70Pi8 7E 40 40 7E 06 06 7E 00 06 

-7DB0 40 40 40 7£ 62 62 7E 00 80 

7DB8 7E 02 02 02 06 06 06 00 96 

7DC0 7C 44 44 3C 62 62 7£ 00 82 

7DC8 7E 42 42 7E 06 06 06 00 92 

7DO0 00 00 18 00 18 00 00 00 30 

7008 00 00 18 00 18 18 30 00 78 

7DE0 OC 18 30 60 30 18 OC 00 08 

7DE8 00 00 7E 00 7e 00 00 00 FC 

7DF0 60 30 18 OC 18 30 60 00 50 

7DF8 30 66 06 OC 18 00 18 00 E4 

7E00 7E 42 5E 40 60 62 7E 00 ftft 

7E08 7E 42 42 7E 62 62 62 00 ft& 

7E10 7E 42 42 7C 62 62 7E 00 CO 

TE18 7E 42 40 40 60 62 7E 00 80 

7E20 7C 46 42 42 62 66 70 00 8ft 

7E28 7E 40 40 78 60 60 7E 00 B4 

7E30 7E 40 40 78 60 60 60 00 96 

7E38 7E 42 40 4E 62 62 7E 00 90 

7E40 42 42 42 7E 62 62 62 00 6A 

7E48 10 10 10 10 18 18 18 00 88 

7E50 7E 42 02 02 06 46 7E 00 8E 

7E58 42 44 48 78 64 62 62 00 6E 

7E60 40 40 40 40 60 60 7E 00 3E 

7E68 76 4A 4A 42 62 62 62 00 72 

7E70 72 4fl 4fl 46 62 62 62 00 72 

7E78 7E 42 42 42 62 62 7E 00 86 

7E80 7E 42 42 7E 60 60 60 00 ftO 

7E88 7E 42 42 42 6A 64 7fi 00 8C 

7E90 7E 42 42 7E 68 64 62 00 AE 

7E98 7E 42 40 7E 06 46 7E 00 48 

7EA0 7E 52 10 10 18 18 18 00 38 

80 7EA8 42 42 42 42 62 62 7E 00 4A 



7EB0 42 42 42 42 64 68 30 00 04 

7EB8 42 42 42 42 Sft 61=1 34 00 10 

7EC0 42 42 2C 10 2C 62 62 00 BO 

7EC8 42 42 2C 10 18 18 18 00 08 

7ED0 7E 42 02 7E 60 62 7E 00 80 

7E08 3C 30 30 30 30 30 3C 00 68 

7EE0 00 60 30 18 OC 06 OO 00 BA 

7EE8 3C OC OC OC OC OC 3C 00 B4 

7EF0 00 32 40 00 00 00 OO 00 7E 

7EF8 00 00 00 00 00 OO 7E 7E FC 

7F00 08 18 30 00 00 00 00 00 50 

7F08 00 00 7ft 46 62 62 7E 00 02 

7F10 40 40 7E 42 62 62 TE 00 82 

7F18 00 00 7E 40 60 60 7E 00 FC 

7F20 02 02 7E 42 62 62 7E 00 06 

7F28 00 00 7E 42 7E 60 7E 00 IC 

7F30 OC 10 38 10 18 18 18 00 ftC 

7F38 OO 00 7(=l 46 62 7E 02 7E 20 

7F40 40 40 70 42 62 62 62 00 64 

7F48 10 00 10 10 18 18 18 00 78 

7F50 08 00 08 08 IS 18 18 70 DO 

7F58 40 40 44 48 70 68 64 00 48 

7F60 10 10 10 10 18 18 18 00 88 

7F68 00 00 7C 4A Sft 6FI 6A 00 04 

7F70 00 00 7C 42 62 62 62 00 E4 

7F78 00 00 7E 42 62 62 TE 00 02 

7F80 00 00 7E 42 62 7E 40 40 20 

7F88 00 00 7E 42 62 7E 02 02 ftH 

7F90 00 00 7C 42 60 60 60 00 OE 

7F98 00 00 7E 40 7E 06 7E 00 CO 

7FA0 10 10 38 10 18 18 18 OE BE 

7Fe8 00 00 42 42 62 62 7E 00 C6 

7FB0 00 00 42 42 64 68 30 00 80 

7FB8 00 00 42 42 6A 6P1 34 00 80 

7FC0 00 00 42 4C 30 6C 62 00 8C 

7FC8 00 00 42 42 62 7E 02 7E E4 

7F00 00 00 7E 02 7E 60 7E 00 DC 

18 SO 18 18 OC 00 ftS 

18 00 18 18 18 00 90 

18 OC 18 18 30 00 OC 

7FF0 00 18 3C 66 00 00 00 00 Bft 

7FF8 FF FF FF FF FF FF FF FF F8 



7FD8 


OC 


18 


7FE0 


18 


18 


7FE8 


30 


18 



61 



7CC0 


FS 


U 


PUSH 


RF 


7CC1 


79 


y 


LO 


A,C 


7CC2 


FE20 


P 


CP 


20H 


7CC4 


3807 


8 


3R 


C.$+09H 


7CC6 


FE80 





CP 


80H 


7CC8 


3003 





OR 


NC,$+05H 


7CCA 


C680 


F 


ROD 


f=l,80H 


7CCC 


4F 





LD 


CA 


7CCD 


Fl 


ci 


POP 


AF 


7CCE 


C3E430 


CdO 


OP 


30E4H 


7CD1 


00 




NOP 




7CD2 


21C07C 


r§6 


LD 


HL.7CC0H 


7CD5 


11FI043 


C 


LD 


DE , 40A0H 


7CD8 


011100 




LD 


BCOOllH 


7CDB 


EDBO 


mO 


LDIR 




7CDD 


21fl043 


1 C 


LD 


HL . 43A0H 


7CE0 


221E40 


" § 


LD 


C401EH) ,HL 


7CE3 


21007D 


1 u 


LD 


HL.7D00H 


7CE6 


HOOFS 


u 


LD 


DE.0F500H 


7CE9 


010003 




LD 


BCOaOOH 


7CEC 


EDBO 


tbO 


LDIR 




7CEE 


AF 


/ 


XOR 


R 


7CEF 


CDB03F 


HO'' 


CALL 


3FB0H 


7CF2 


C 36600 


Cf 


ap 


0066H 
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Ein Screen-Printer 

Sicher haben Sle slch gefragt. wie die vielen Bi Idschirmaus- 
drucke, die in diesem Buch zu finden sind, erzeugt Murden. 

Das folgende Maschinenspracheprogramm erzeugt einen solchen 
BildschirmausdrucH auT dem STAR DP SIO/SIS. Dabei sind soMohl 
Ausdruche von Texten, als ouch von FGR-Grafiken moalich. 
Auperdem erUennt das Programm, welcher Zeichensatz fur die 
Zeichen von 128 bis 255 angewahlt wurde- 

Nach dem Einschalten Ihres Rechners geben Sie als MEM SIZE 
46330 ein. Dann laden Sie den "Basic-honitor" Coder jeden ande- 
ren Monitor, sofern dieser nicht die fldressen Uber B500H be- 
legtJ und geben das Programm mit dem E-Befehl ein. Wenn Sie 
sicher sind, dap Sie alles fehlerfrei eingegeben haben, achrei- 
ben Sie den Screen-Printer mit dem Befehl WB500 BFFF BE40 auf 
Kassette. Zum Schlup geben Sie ein: , 

GBE40. 

Der Screen-Printer meldet slch mitt 
<SCREEN PRINTEft> 
Cc3 1983 von TCS 

COLOUR BASIC 

BEADY 

> 

Nun konnen Sie jederzeit durch Druck auf die Tasten <CTRL> und 
<P> einen Ausdruck des Bildschirms machen. Da dieses Programm 
den Tastatur-DCB anzapft, funktioniert das Programm imraer, 
sotange es nicht uberschrieben wird oder die Tastatur-Treiber- 
fidresse verandert wird. 

Hier nun ein Hex-Dump Cmit Priifaummen) des Screen-Printer t 



* (Fur dieses Programm mu6 Ihr Colour-Genie auf 32 K RAM erweitert sein.) 
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B500 30 FF FF FF FF FF FF FF 29 

B508 FF FF FF FF FF FF FF FF F8 

B510 FF FF FF FF FF FF FF FF F8 

B518 FF FF FF FF FF FF FF FF F8 

B520 FF FF FF FF FF FF FF FF F8 

8528 FF FF FF FF FF FF FF FF F8 

B530 FF FF FF FF FF FF FF FF F8 

B538 FF FF FF FF FF FF FF FF F8 

B540 FF FF FF FF FF FF FF FF F8 

B548 FF FF FF FF FF FF FF FF F8 

B550 FF FF FF FF FF FF FF FF F8 

B558 FF FF FF FF FF FF FF FF F8 

BS60 FF FF FF FF FF FF FF FF F8 

B568 FF FF FF FF FF FF FF FF F8 

B570 FF FF FF FF FF FF FF FF F8 

B578 FF FF FF FF FF FF FF FF F8 

B580 FF FF FF FF FF FF FF FF F8 

B588 FF FF FF FF FF FF FF FF F8 

B580 FF FF FF FF FF FF FF FF F8 

B588 FF FF FF FF FF FF FF FF F8 

B5fl0 FF FF FF FF FF FF FF FF F8 

B5A8 FF FF FF FF FF FF FF FF F8 

B5B0 FF FF FF FF FF FF FF FF F8 

B5B8 FF FF FF FF FF FF FF FF F8 

B5C0 FF FF FF FF FF FF FF FF F8 

B5C8 FF FF FF FF FF FF FF FF F8 

B5D0 FF FF FF FF FF FF FF FF F8 

B5D8 FF FF FF FF FF FF FF FF F8 

B5E0 FF FF FF FF FF FF FF FF F8 

e5E8 FF FF FF FF FF FF FF FF F8 

B5F0 FF FF FF FF FF FF FF FF F8 

BSF8 FF FF FF FF FF FF FF FF F8 

B600 00 00 00 00 00 00 00 00 00 

B608 10 10 10 10 10 00 10 00 60 

B610 28 28 28 00 00 00 00 00 78 

B618 28 28 rC 28 7C 28 28 00 CO 

B620 10 3C 50 38 14 78 10 00 70 

BG28 60 64 08 10 20 4C OC 00 S4 

B630 20 50 50 20 54 48 34 00 BO 

B638 10 10 10 OO 00 00 00 00 30 

B640 08 10 20 20 20 10 08 00 90 

B648 20 lO 08 OS 08 10 20 00 78 

B650 10 54 38 10 38 54 10 00 48 

8658 00 10 10 7C 10 10 00 00 BC 

B660 00 00 00 00 10 10 20 00 40 

B668 00 00 00 7C 00 00 00 00 7C 

B670 00 00 00 00 00 00 10 00 10 

B678 00 04 08 10 20 40 00 00 7C 

8680 38 44 4C 54 64 44 38 00 FC 

B688 10 30 10 10 10 10 10 00 80 

B690 38 44 04 38 40 40 7C 00 B4 

B688 7C 04 08 18 04 44 38 00 20 

B6A0 18 28 48 7C 08 08 08 00 IC 

86^8 7C 40 78 04 04 44 38 00 B8 

B6B0 IC 20 40 78 44 44 38 00 B4 

B6B8 7C 04 04 08 10 20 40 00 FC 

B6C0 38 44 44 38 44 44 38 00 B8 

B6C8 38 44 44 3C 04 08 70 00 78 

B6D0 00 00 10 00 10 00 00 00 20 

B6D8 00 00 10 00 10 10 20 00 50 
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B6E0 08 10 20 40 20 10 08 00 BO 

B6E8 00 00 7C 00 7C 00 00 00 F8 

B6F0 20 10 08 04 08 10 20 00 74 

B6FS 38 44 04 08 10 00 10 00 Pl8 

B700 38 44 54 5C 58 40 3C 00 00 

B708 10 28 44 44 7C 44 44 00 C4 

B710 78 44 44 78 44 44 78 00 78 

B718 38 44 40 40 40 44 38 00 B8 

8720 78 44 44 44 44 44 78 00 44 

B728 7C 40 40 70 40 40 7C 00 68 

B730 7C 40 40 70 40 40 40 00 2C 

B738 38 44 40 5C 44 44 38 00 D8 

B740 44 44 44 7C 44 44 44 00 14 

B748 38 10 10 10 lO lO 38 00 CO 

B750 7C 04 04 04 04 44 38 00 08 

B758 44 48 50 60 50 48 44 00 18 

B760 40 40 40 40 40 40 7C 00 PC 

B768 44 6C 54 54 44 44 44 00 24 

B770 44 64 54 4C 44 44 44 00 14 

B778 38 44 44 44 44 44 38 00 C4 

B780 78 44 44 T8 40 40 40 00 38 

B788 38 44 44 44 54 48 34 00 D4 

B790 78 44 44 78 50 48 44 00 54 

B798 38 44 40 38 04 44 38 00 74 

B7FI0 7C 54 lO 10 10 10 10 00 20 

B7fl8 44 44 44 44 44 44 38 00 DO 

B7B0 44 44 44 28 28 10 10 00 3C 

B7B8 44 44 44 54 54 54 28 00 FO 

B7C0 44 44 28 10 28 44 44 00 70 

B7C8 44 44 28 10 10 10 10 00 FO 

B7D0 7C 44 08 10 20 44 7C 00 B8 

B7DS 78 60 60 60 60 60 78 00 DO 

e7E0 00 40 20 10 08 04 00 00 7C 

B7E8 3C OC OC OC OC OC 3C 00 B4 

B7F0 10 28 44 00 00 00 00 00 7C 

B7F9 00 00 00 00 00 00 OO 7C 7C 

B800 20 10 08 00 00 00 00 00 38 

B808 00 00 38 04 3C 44 3C 00 F8 

B810 40 40 78 44 44 44 78 00 3C 

B818 00 00 38 44 40 44 38 00 38 

B820 04 04 3C 44 44 44 3C 00 4C 

B828 00 00 38 44 7C 40 38 00 70 

B830 18 20 70 20 20 20 20 20 48 

B838 00 00 3C 44 44 3C 04 38 3C 

B840 40 40 78 44 44 44 44 00 08 

B848 10 00 30 10 10 10 38 00 A8 

B8S0 08 00 08 08 08 08 48 30 f=»0 

B858 40 40 48 SO 60 50 48 00 10 

B860 30 10 10 10 10 10 38 00 88 

B868 00 00 68 54 54 54 54 00 B8 

B870 00 00 58 64 44 44 44 00 88 

B878 00 00 38 44 44 44 38 00 3C 

B880 00 00 78 44 44 78 40 40 F8 

B888 00 00 3C 44 44 3C 04 04 08 

B890 00 00 58 60 40 40 40 00 78 

B898 00 00 3C 40 38 04 78 00 30 



( 
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B8A0 10 10 38 10 10 10 10 08 flO 

B8A8 00 00 44 44 44 4C 34 00 4C 

B8B0 00 00 44 44 44 28 10 00 04 

B8B8 00 00 44 44 54 54 28 00 58 

B8C0 00 00 44 28 10 28 44 00 E8 

B8C8 00 00 44 44 44 3C 04 38 44 

B8D0 00 00 TC 08 10 20 7C 00 30 

68D8 18 20 20 40 20 20 18 00 FO 

B8E0 10 10 10 00 10 10 10 00 60 

B8E8 30 08 08 04 08 08 30 00 84 

B8F0 00 00 32 4C 00 00 00 00 7E 

B8F8 FF FF FF FF FF FF FF FF F8 

B800 FF FF FF 07 07 07 07 07 20 

B908 FF FF FF EO EO £0 EO EO 5D 

B910 07 07 07 07 07 FF FF FF 20 

B918 EO EO EO EO EO FF FF FF 5D 

B920 IC IC FC FC FC FC IC IC 60 

B928 38 38 3F 3F 3F 3F 38 38 DC 

B930 3C 3C 3C FF FF FF 00 00 Bl 

B938 00 00 FF FF FF 3C 3C 3C Bl 

B940 00 00 FF FF FF 00 00 00 FD 

B948 80 80 80 80 80 80 80 80 00 

B350 01 01 01 01 01 01 01 01 08 

B958 FF 00 00 00 00 00 00 00 FF 

B960 00 00 00 00 00 00 00 FF FF 

B868 FF 81 81 81 81 81 81 FF 04 

B970 38 38 38 38 38 38 38 38 CO 

B978 00 00 00 18 18 00 00 00 30 

B980 3C 3C 3C 3C 3C 3C 3C 3C EO 

B988 00 00 FF FF FF FF 00 00 FC 

B890 FC FC CO CO CO CO CO CO 78 

B888 3F 3F 3F 3F 03 03 03 03 08 

B9A0 CO CO 30 3C 3C 30 CO CO D8 

B9A8 03 03 OC 3C 3C OC 03 03 8C 

B9B0 CO CO FO FO FO FO CO CO CO 

B9B8 03 03 OF OF OF OF 03 03 48 

B9C0 00 00 3C 3C 3C 3C 00 00 FO 

B9C8 OC OC 3C 3C 3C 3C 30 30 68 

B9D0 00 00 FC FC 3F 3F 00 00 76 

B9D8 CO CO CO CO CO FC FC FC B4 

B9E0 03 03 03 03 3F 3F 3F 3F 08 

B9Ee 00 00 18 18 3C 3C C3 C3 2E 

B8F0 03 C3 3C 3C 18 18 00 00 2E 

B9F8 00 00 00 00 3C 3C FF FF 76 

BflOO FF FF 3C 3C 00 00 00 00 76 

Bfl08 13 7E 7E 7E 7E 7E 7E 00 07 

BAIO FF FF CO CO CO CO FF FF FC 

BftlS 3C 3C 3C 3C 3C 3C 3C 3C EO 

BA20 FF FF C3 C3 C3 C3 C3 C3 90 

BA28 C3 C3 C3 C3 C3 C3 FF FF 90 

Bft30 3C 3C FF FF 3C 3C 3C 3C 66 

BA38 24 24 24 E7 E7 24 24 24 ^6 

BA40 C3 C3 C3 C3 C3 C3 C3 C3 18 

BA48 FF FF FF FF FF FF 18 18 2fl 

BA50 18 18 FF FF FF FF FF FF 2fi 

BA58 CO CO CO CO CO CO CO CO 00 



86 



BA60 FF FF 03 03 03 03 FF FF 08 

BA68 FF FF FO FO FO FO OF OF DC 

BATO OF OF FO FO FO FO FO FF CD 

BA78 FC FC FC FC C3 C3 C3 C3 FC 

BftSO C3 C3 C3 C3 FC FC FC FC FC 

BA88 FC FC FC FC FC FC FC FC EO 

BA90 C3 C3 C3 C3 3F 3F 3F 3F 08 

BA98 IF IF IF IF 63 63 63 63 08 

BftftO 00 00 00 00 00 00 FF FF FE 

Bf\ft3 FF FF 00 00 00 00 00 00 FE - 

BABO 03 03 03 03 03 03 03 03 18 

BAB8 FF 81 BD fl5 A5 BD 81 FF C4 

BACO E7 66 66 66 FF FF FF FF 15 

BAC8 C3 C3 3C 3C 3C C3 C3 00 CO 

BADO 18 18 18 18 18 18 18 18 CO 

BFID8 00 00 00 00 00 00 F8 F8 FO 

BAEO 00 00 00 00 00 00 IF IF 3E 

BAE8 OF OF OF OF 00 00 00 OO 3C 

BAFO 00 00 00 00 FO FO FO FO CO 

B0F8 FO FO 00 00 00 00 00 00 EO 

BBOO 18 66 FF 18 24 42 81 81 FD 

BB08 00 FF 00 FF 00 FF 00 FF FC 

BBIO 18 18 18 FF FF 18 18 18 8E 

BB18 CC CC 33 33 CC CC 33 33 FC 

BB20 AA 55 AA 55 AA 55 AA 55 FC 

BB28 C3 66 3C 18 3C 66 C3 81 63 

BB30 36 7F 7F 7F 3E 3E IC 08 53 

BB38 81 C3 DB E7 DB C3 81 00 25 

BB40 08 IC 3E 7F 7F 36 08 3E DC 

BB48 08 IC IC 2A 7F 2A 08 3E 59 

B850 FF FF FF FF FF FF FF FF F8 

BB58 33 33 33 33 33 33 33 33 98 

BB60 49 49 49 49 49 49 49 49 48 

BB68 01 03 07 OF IF 3F 7F FF F6 

BB70 FF FF 00 00 FF FF 00 00 FC 

BB78 CO CO CO CO CO CO CO CO 00 

BB80 00 00 FF FF 00 00 FF FF FC 

BB88 FF FF FF FF 00 00 00 00 FC 

BB90 00 00 00 00 FF FF FF FF FC 

8698 FF FF 00 00 00 00 00 00 FE 

BBAO OF OF OF OF OF OF OF OF 78 

BBA8 FO FO FO FO FO FO FO FO 80 

BBBO FO FO FO FO OF OF OF OF FC 

BBB8 FF 00 FF 00 FF 00 FF 00 FC 

BBCO 92 92 92 92 92 92 92 92 90 

BBC8 00 00 00 FF FF 00 00 00 FE 

BBDO 00 00 00 00 00 00 FF FF FE 

BBD8 03 03 03 03 03 03 03 03 18 

BBEO 04 08 11 22 44 88 10 20 3B 

BBE8 CC CC CC CC CC CC CC CC 60 

BBFO 20 10 88 44 22 11 08 04 3B 

BBF8 01 03 06 OC 18 30 60 CO 7E-^ 

BCOO 80 CO EO FO F8 FC FE FF 01 

BC08 18 18 18 18 18 18 18 18 CO 

BCIO FF FE FC F8 FO EO CO 80 01 

BC18 CO 60 30 18 OC 06 03 01 7E 
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BC20 FF 7F 3F IF OF 07 03 01 F6 

BC28 FF FF TE 3C 00 00 00 00 B8 

BC30 3C 7E FF FF FF FF 7e 3C 70 

BC38 98 99 39 99 99 5ft 3C 18 AB 

BC40 18 3C 5A 99 18 18 18 18 07 

BC48 FF 81 81 99 93 81 81 FF 34 

BC50 CO CO 00 18 18 00 03 03 B6 

BC58 30 7E C3 C3 C3 03 7E 30 80 

BC60 00 00 00 00 OF 08 08 08 27 

BC68 00 00 00 00 FO 10 10 10 20 

BC70 07 OF IF IF IF IF OF 07 AS 

BC78 08 08 08 OF 00 00 00 00 27 

BC80 10 10 10 FO 00 00 00 00 20 

BC88 E7 24 24 3C 66 03 81 81 96 

BC90 08 10 3E 7F 7F 3E 10 08 02 

BC98 24 42 A5 18 18 f\5 42 24 46 

BCAO 00 00 00 30 7E FF FF FF B7 

BCA8 EO FO F8 F8 F8 F8 FO EO 80 

BCBO 00 00 00 18 18 00 00 00 30 

B0B8 00 66 66 00 00 66 66 00 98 

BCCO FF 03 81 81 81 81 C3 FF 88 

B0C8 03 03 00 18 18 00 03 C3 3C 

BCDO 66 FF FF 66 66 FF FF 66 94 

BCD8 18 18 18 18 93 50 30 18 A7 

BCEO 00 00 18 18 00 18 18 00 60 

BCE8 10 20 40 FF FF 40 20 10 DE 

BCFO 66 66 00 66 66 00 66 66 64 

B0F8 08 04 02 FF FF 02 04 08 lA 

BDOO DD 21 00 B5 21 10 43 FE 31 

BOOS 80 38 16 FE CO 38 00 CB 99 

BDIO 5E 20 04 OD 21 00 FO 18 88 

BD18 08 CB 66 20 04 DO 21 00 5B 

BD20 FO 6F 26 00 29 29 29 EB EB 

BD28 DO 19 21 00 42 11 01 42 OD 

B030 01 08 00 36 00 ED BO 06 E2 

BD38 08 16 80 05 21 07 42 06 03 

BD40 08 IE 01 DD 7E 00 03 28 40 

BD48 03 70 B6 77 CB 03 2B 10 B3 

BD50 F2 CI CB 00 00 23 10 £3 7B 

BD58 C9 00 00 00 00 00 00 00 C9 

BD60 21 00 44 30 F9 42 47 C5 E6 

BD68 3E IB CD CO BD 3E 4B CD FQ 

B070 CO BD 3E 50 CO CO BD 3E 93 

BD78 00 CD CO BO 06 50 CD CO 2D 

BD80 BO 10 FB 06 28 7E C5 OS OE 

BD88 E5 CD 00 BD 3E IB 00 CO 55 

B090 BD 3E 4B CD CO BO 3E 08 06 

BD98 CD CO BD 3E 00 CD CO BD 02 

BDOO 06 08 21 00 42 7E CD CO 7C 

BD08 BO 23 10 F9 El Dl CI 23 7F 

BDBO 10 03 3E 00 CD CO BD CI 33 

BOBS 05 02 67 BD C9 00 00 00 B4 

BDCO F5 3E 07 03 F8 3E 7F 03 95 

BDC8 F9 3E OF D3 F8 DB F9 E6 CB 

BDOO EF FE 2F 20 EC 3E 07 03 40 

BODS F8 3E 7F D3 F9 3E OE D3 00 

BDEO F8 Fl D3 F9 F5 SE 07 03 C2 
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B0E3 F8 3E FF 03 F9 3E OF 03 21 

BOFO F8 3E 00 03 F9 3E OF 03 22 

BDF8 F8 3E 01 03 F9 Fl C9 00 BD 

BEOO 3E IB CO CO BD 3E 41 CD EF 

BE08 CO BD 3E 08 CO CO BD C3 DO 

BEIO 60 BD 3A 80 F8 FE 10 CO 90 

BE18 3ft 04 F8 FE 01 CO C5 D5 8F 

BE20 E5 DO E5 21 32 BE E5 3fl 07 

BE28 IC 43 CB 6F CF> 00 BE C3 E4 

BE30 00 BF OD El El Dl CI C9 B9 

BE38 E5 21 E3 03 E3 C3 12 BE 62 

BE40 21 38 BE 22 16 40 21 20 DO 

BE48 BF CD A7 28 21 00 B5 C3 F4 

BE50 02 01 00 00 00 00 00 00 03 

BESS 00 00 00 00 00 00 00 00 00 

BE60 DD 21 00 48 3ft 12 43 47 IC 

BE68 C5 06 28 21 00 42 DD 7E Bl 

BE70 00 E6 CO OF OF OF OF OF Fl 

BE78 OF CD CC BE DD 7E 00 E6 ft7 

BE80 30 OF OF OF OF CD CC BE C3 

BE88 DD 7E 00 E6 OC OF OF CD 38 

BE90 CC BE DD 7E 00 E6 03 CD SB 

BE98 CC BE 3E IB CD CO BD 3E &B 

BEAO 4B CD CO BO 3E OC CD CO 6C 

BEA8 BO 3E 00 CD CO BO C5 06 10 

BEBO OC 21 00 42 7E CD CO BO 37 

BEB8 23 10 F9 CI DD 23 10 ftB ftS 

BECO CI 3E OD CD CO BO 10 AO 06 

BEC8 C9 00 00 00 B7 20 Ofi 36 EO 

BEOO 00 23 36 00 23 36 00 23 05 

BEOS C9 FE 01 20 OR 36 RO 23 EB 

BEEO 36 AO 23 36 ftO 23 C9 FE B9 

BEES 02 20 Oft 3& 50 23 36 ftO ftB 

BEFO 23 36 50 23 C9 36 FO 23 DE 

BEF8 36 FO 23 36 FO 23 C9 00 56 

BFOO 3E 18 CD CO BO 3E 41 CD EF 

BF08 CO BD 3E 04 CD CO BO C3 CC 

BFIO 60 BE 00 00 00 00 00 00 IE 

BF18 00 00 00 00 00 00 00 00 00 

BF20 3C 53 43 52 45 45 4E 20 IC 

BF28 50 52 49 4E 54 45 52 3E 62 

BF30 OD 28 63 29 20 31 39 38 83 

BF38 33 20 76 &F 6E 20 54 43 50 

BF40 53 OD OD 00 00 00 00 00 60 

BF48 00 00 00 00 00 00 00 00 00 

BF50 00 00 00 00 00 00 00 00 00 

BF58 00 00 00 00 00 00 00 00 00 

BF60 00 00 00 00 00 00 00 00 00 

BF68 00 00 00 00 00 00 00 00 00 

BF70 00 00 00 00 00 00 00 00 00 

BF78 00 00 00 00 00 00 00 00 00 

BF80 00 00 00 00 00 00 00 00 00 

BF88 00 00 00 00 00 00 00 00 00 

BF90 00 00 00 00 00 00 00 00 00 

BF98 00 00 00 00 00 00 00 00 00 
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BFAO 00 00 00 00 00 00 00 00 00 

BFA8 00 00 00 00 00 00 00 00 00 

BFBO 00 00 00 00 00 00 00 00 00 

BFB8 00 00 00 00 00 00 OO 00 00 

BFCO 00 00 00 00 00 00 00 00 00 

BFC8 00 00 00 00 00 00 00 00 00 

BFDO 00 00 00 00 00 00 00 00 00 

BFD8 00 00 00 00 00 00 00 00 00 

BFEO 00 00 00 00 00 00 00 00 00 

BFE8 00 00 00 00 00 00 00 00 00 

BFFO 00 00 00 00 00 00 00 00 00 

BFF8 00 00 00 00 00 00 00 00 00 
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Anhang A: .Basic Elnfachtokens 



128 


T 


END 


1 29 


r 


FOR 


130 


J 


RESET 


131 


L 


SET 


1 3£ 


A 


CL3 


1 ZZ 


ii 


CMD 


134 


dk 


RANOOtI 


135 




NEXT 


1 36 


™ 


DATA 


137 


l_ 


INPUT 


1 38 


1 


DIM 


139 




READ 


1 40 




LET 


1 41 


D 


GOTO - 


1 42 


T 


RUN 


143 


■ 


IF 


1 44 


1 


RESTORE 


145 


^ 


GOSUB 


1 46 


r 


RETURN 


1 47 


T 


REM 


148 


> 


STOP 


149 


< 


ELSE 


1 58 


ft 


TRON 


1 51 


A 


TROFF 


152 


■ 


DEFSTR 


153 


f 


DEFINT 


1 54 


m. 


DEFSNG 


155 


I, 


DEFDBL 


1 56 


J 


LINE 


1 57 


A 


EDIT 


1 53 


V 


ERROR 


1 59 




RESUME 


1 60 


"» 


OUT 


161 


« 


ON 


162 


C 


OPEN 


1 6 3 


1 


FIELD 


164 


n 


SET 


165 


u 


PUT 


1 SG 


♦ 


CLOSE 


167 


HI- 


LOAD 


168 


ii 


MERGE 


169 


W 


NAME 


170 


* 


KILL 


171 


1 


LSET 


1 72 


3 


RSET 


173 


r 


SAVE 


1 74 


f 


SYSTEM 


175 


n 


LPRIMT 


176 


V 


DEF 


177 


■ 


POKE 


178 


u 


PRINT 


179 


fl 


COHT 


1 80 


wmm 


LIST 


1 81 




LLIST 


1 82 


1 


DELETE 


1 83 


n 


AUTO 


184 


u 


CLEAR 


185 


X 


CLOAD 


1 86 


1 


CSAVE 


187 




NEW 


1 88 


_ 


TAB< 


1 89 


■ 


TO 


190 


■ 


FN 


191 


" 


USING 


1 92 


fi. 


VARPTR 


193 


= 


USR 


1 54 


+ 


ERL 


195 


5ft 


ERR 


196 


m 


STRING* 


1 97 


X 


INSTR 


1 98 


• 


CHECK 


199 


H 


TIME* 


200 


* 


MEM 


201 


^ 


IHKEY* 


202 


■ 


THEN 


203 


II 


NOT 


204 


III 


STEP 


£05 


A 


+ 


206 


" 


- 


£07 


1 


* 


208 


— 


/ 


209 




C 


£10 


■■ 


AND 


21 1 


-~ 


OR 


212 


1 


> 


£1 3 


\_ 


= 


21 4 


\ 


< 


215 




S8N 


216 


III 


INT 


21 7 


_ 


ABS 


218 


^ 


FRE 


219 


1 


INP 


220 


^ 


POS 


221 


II 


SQR 


222 


-^^ 


RND 


£23 


/ 


LOG 


224 


k 


EXP 


£25 


1 


COS 


£26 


r 


SIN 


227 


N 


TAN 


£28 


^ 


ATM 


££9 




PEEK 


230 


• 


CVI 


231 


<J^ 


CVS 


232 


^ 


CVD 


£33 


H 


EOF 


£34 


■ 
■ 


LOC 


£35 


O 


LOF 


£36 


r 


MKI* 


237 


T 


MKS* 


£38 


i 


MKD* 


£39 


1. 


CINT 


240 


J 


CSNG 


£41 


« 


CDBL 


£42 


♦ 


FIX 


£43 


^ 


LEN 


£44 


jh 


STR* 


£45 


» 


VAL 


£46 


■ 


ASC 


£47 


• « 


CHR* 


248 


D 


LEFT$ 


249 


■ ■ 


RIGHT* 


£50 


tt 


MID* 


£51 


4^ 


% 
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Colour-Basic Doppeltokens 



255 


1 £8 


T 


COLOUR 


£55 


1£9 


r 


FCOLOUP 


d'55 


130 


J 


KEYPAD 


£55 


1 31 


L 


30Y 


£55 


1 3£ 


4 


PLOT 


£55 


1 33 


¥ 


FGR 


£55 


134 


s, 


LSP 


£55 


1 35 


* 


FCLS 


£55 


136 


H 


PLftV 


£55 


137 


1 


CIRCLE 


£55 


138 


1 


SCALE 


£55 


139 


___ 


SHAPE 


£55 


1 40 




NSHftPE 


£55 


141 


n 


xshhpe 


£55 


1 4£ 


T 


PAINT 


£55 


143 


■ 


CPOIMT 


£55 


1 44 


1 


NPLOT 


£55 


145 


^ 


SOUND 


£55 


1 46 


r 


CHAR 


£55 


1 47 


T 


RENUM 


£55 


1 48 


> 


SUAP 


£55 


1 49 


< 


FKEY 


£55 


158 


¥ 


CALL 


£55 


151 


i 


VERIFY 


£55 


15£ 


■ 


B6P0 


£55 


153 


* 


NB6R0 



CDie Tokens sind die der neuen Basic -ROMs, 
die seit April '83 eingebaut sind.3 

Folgendes Programm erzeugt eine oequivalente Liste auf dem Bildschirm; 



10 CLS:C = -l:Fl=127!B=3!CHPlR4 

20 PRINT"Basic Einf achtokens" : X=tH 1650 

30 IFPEEKCX)>127THEN50 

40 PRINTCHRtCPEEKCXJAND127) : :X=X+1 sGOTOSO 

50 B=B+l:C=C+l:IFC=124THEN90 

60 IFB<48THEN80 

70 G0SUB160:CLS:B=0 

80 (=)=ft+ 1 : PRINT : COLOUR 1; PR INT§CINTCB/2D*40 5 +CR-INTC A/2 )«2D*20. As" "! :C0 

LOURS : PR I NTCHRS C A ) : " " s : C0L0UR2 : G0T04O 

90 G0SUB160:CLS:B=3:C=-1 :R= 127 :X=tH3930 

100 PRINT"Colour-Basic Doppeltokens" 

110 IFPEEKCXD>127THEN130 

120 PRINTCHR$CPEEKCXD(=iND1271 i :X-X+1 :G0T01 10 

130 IFA=129THENPRINT"R"; 

140 B=B+llC>=C+l:IFC=26THENEND 

150 A=A+l:PRINT:COLOURl!PRINTSCINTCB/2)*405 + CR-INTC(=l/2D*2)*20,"255"jA; 

" "; ;C0L0UR5:PRINTCHR$CR) !" ": :C0L0UR2: G0T0120 

160 PRINT§860,"Bitte druecken Sie <RETURN> "; t INPUTRS : RETURN 



Beachten Sie, daB ein Teil der Betehle erst im Disk-Basic benutzt werden (z B TIME $) 
Im normalen Basic haben diese Befehte keine Funktion und fuhren zu "?SN ERROR" 
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Anhang B: 

Dozimal/Hexadezimal/ASCII-Tabelle 



Dez 




Hex 


2. 


Dez 




Hex 


Z . 


Dez 




Hex 


Z 


a 


= 


8@H 




1 


= 


eiH 




2 


= 


82H 




3 


= 


83H 




4 


= 


04H 




5 


= 


05H 




6 


= 


06H 




7 


= 


07H 




3 


= 


08H 




9 


= 


09H 




10 


= 


0f^H 




1 1 


= 


0BH 




12 


= 


0CH 




1 3 


= 


0DH 




14 


= 


0EH 




15 


= 


eFH 




1 6 


= 


1 0H 




17 


= 


1 1H 




1 S 


= 


1 £H 




1 9 


= 


1 3H 




20 


= 


1 4H 




£1 


= 


1 5H 




22 


— 


16H 




23 


= 


1 7H 




£1 


= 


1 SH 




25 


= 


19H 




26 


= 


1 AH 




£7 


= 


1 BH 




28 


= 


1CH 




29 


= 


1DH 




30 


= 


1EH 




31 


= 


1FH 




32 


= 


20H 




33 


= 


21H 


i 


34 


= 


22H 


" 


35 


= 


23H 


tt 


36 


= 


24H 


t 


37 


— 


25H 


% 


33 


= 


26H 


& 


39 


= 


27H 


t 


40 


= 


28H 


< 


41 


= 


29H 


> 


42 


= 


2AH 


* 


43 


= 


2BH 


+ 


44 


= 


2CH 


J 


45 


= 


2DH 


- 


46 


= 


2EH 




47 


= 


2FH 


y' 


48 


= 


30H 





49 


= 


31H 


i 


58 


= 


32H 


2 


51 


= 


33H 


3 


52 


= 


34H 


4 


53 


= 


35H 


5 


54 


= 


36H 


6 


55 


= 


37H 


7 


56 


= 


38H 


8 


57 


= 


39H 


9 


53 


= 


3AH 


: 


59 


= 


3BH 


i 


66 


= 


3CH 


< 


61 


= 


3DH 


= 


62 


= 


3EH 


> 


63 


= 


3FH 


? 


64 


= 


40H 


@ 


65 


= 


41H 


A 


66 


= 


42H 


B 


67 


= 


43H 


c 


68 


= 


44H 


D 


69 


= 


45H 


E 


70 


= 


46H 


F 


71 


= 


47H 


6 


72 


= 


48H 


H 


73 


= 


49H 


I 


74 


= 


4AH 


3 


75 


= 


4BH 


K 


76 


= 


4CH 


L 


77 


= 


4DH 


M 


78 


= 


4EH 


H 


79 


= 


4FH 





80 


= 


50H 


P 


81 


= 


51H 


Q 


82 


= 


52H 


R 


83 


= 


53 H 


S 


34 


= 


54H 


T 


85 


= 


55H 


U 


86 


= 


56H 


V 


87 


= 


57H 


U 


88 


= 


58H 


X 


89 


= 


59H 


Y 


90 


= 


5hH 


Z 


91 


= 


5BH 


[ 


92 


= 


5CH 


\ 


93 


= 


SDH 


1 


94 


= 


5EH 


A 


95 


= 


5FH 




96 


= 


60H 


'^- 


97 


= 


eiH 


a 


98 


= 


62H 


b 


99 


= 


63H 


c 


100 


= 


64H 


d 


101 


= 


65H 


e 


102 


= 


66H 


f 


103 


= 


67H 


3 


194 


= 


63H 


h 


185 


= 


65H 


i 


106 


= 


6AH 


J 


187 


= 


6BH 


k 


1 08 


= 


6CH 


1 


189 


= 


6DH 


IB 


1 1 8 


= 


6EH 


n 


1 1 1 


= 


6FH 


o 


1 12 


= 


70H 


P 


1 13 


= 


71H 


q 


1 14 


= 


72H 


r 


1 15 


= 


73H 


S 


1 16 


= 


74H 


t 


1 1 7 


= 


75H 


u 


1 18 


= 


76H 


y 


1 19 


= 


77H 


u 


120 


= 


78H 


X 


121 


= 


79H 


y 


122 


= 


7AH 


z 


123 


= 


7BH 


<. 


124 


= 


7CH 


■ 


125 


= 


7DH 


> 


126 


= 


7EH 


~ 


127 


= 


7FH 


■ 


128 


= 


88H 


^ 


129 


= 


81H 


r 


130 


= 


82H 


J 


131 


= 


83H 


L 


132 


= 


84H 


4 


133 


= 


85H 


li 


134 


= 


86H 


jii 



\ 
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135 


= 


87H 


ly 


136 


= 


88H 


B 


1 37 


= 


89H 


1 


138 


= 


8AH 


1 


139 


= 


8BH 





140 


= 


3CH 




141 


= 


SDH 


P 


142 


= 


8EH 


1 


143 


= 


8FH 


■ 


144 


3= 


90H 


1 


145 


= 


91H 


^ 


146 


= 


92H 


r 


147 


= 


93H 


1 


148 


= 


94H 


> 


149 


= 


95H 


< 


150 


= 


96H 


¥ 


151 


= 


97H 


4 


152 


= 


98H 


■ 


153 


= 


99H 


* 


1 54 


= 


9AH 




155 


= 


9BH 


L 


156 


= 


9CH 


J 


1 57 


= 


9DH 


A 


158 


= 


9EH 


V 


153 


= 


9FH 




1 68 


= 


A0H 




161 


= 


AIM 


If 


1 62 


= 


A2H 


C 


163 


= 


A3H 


1 


164 


= 


A4H 


n 


165 


= 


A5H 


u 


1 66 


= 


A6H 


♦ 


167 


= 


A7H 


■It- 


1 68 


= 


A8H 


It 


1 69 


= 


A9H 


* 


170 


= 


AAH 


* 


171 


= 


ABH 


1 


172 


= 


ftCH 


3 


173 


= 


ADH 


K 


174 


= 


ftEH 


£ 


175 


= 


AFH 


n 


176 


= 


B0H 


u 


177 


= 


ei H 


■ 


178 


= 


B2H 


u 


179 


= 


B3H 


n 


180 


= 


B4H 




181 


= 


B5H 




182 


= 


B6H 


1 


183 


= 


e7H 


1 


184 


= 


B8H 


u 


185 


= 


B9H 


X 


186 


= 


BAH 


1 


187 


= 


BBH 




188 


= 


BCH 




189 


= 


BDH 


■ 


190 


= 


BEH 


m 


191 


= 


BFH 


~ 


19£ 


= 


C8H 


fi 


193 


= 


C1H 


= 


194 


= 


C2H 


+ 


195 


= 


C3H 


% 


196 


= 


C4H 


m 


197 


= 


C5H 


X 


198 


= 


C6H 


» 


199 


= 


C7H 


M 


200 


= 


C8H 


# 


m 


~ 


m id 


iS§ 


= 


mi 


1^1 


~ 


ilH 


il 


207 


= 


CFH 


1 


208 


= 


D0H 


— 


209 


= 


D1H 


" 


210 


= 


D2H 


^ 


21 1 


= 


D3H 


^ 


212 


= 


D4H 


1 


213 


= 


D5H 


1 


214 


= 


D6H 


S 


215 


= 


D7H 


= 


216 


= 


D8H 


III 


21 7 


= 


D9H 


•• 


218 


= 


DAH 




219 


= 


DBH 


1 


220 


= 


DCH 


^ 


221 


= 


DDK 


IF 


222 


= 


DEH 


^ 


223 


= 


DFH 


y 


224 


= 


E0H 


k 


225 


= 


E1H 


1 


226 


= 


E2H 


V 


227 


= 


E3H 


\ 


228 


= 


E4H 


'^ 


229 


= 


E5H 


^ 


230 


= 


E6H 


• 


231 


= 


E7H 


* 


232 


= 


E8H 


'T 


233 


= 


E9H 


B 


234 


= 


EAH 




235 


= 


EBH 


O 


236 


= 


ECH 


r 


237 


= 


EDH 


n 


238 


= 


EEH 


4 


239 


= 


EFH 


t. 


240 


•= 


F0H 


J 


241 


= 


F1H 


« 


242 


= 


F2H 


♦ 


243 


= 


F3H 


« 


244 


= 


F4H 




245 


= 


F5H 


» 


246 


= 


F6H 


■ 


247 


= 


F7H 




248 


= 


F8H 


Q 


249 


= 


F9H 


m ■ 


250 


= 


FAN 


u 


251 


= 


FBH 


4, 


252 


= 


FCH 




253 


= 


FDH 


^ 


254 


= 


FEN 




255 


= 


FFH 


■^ 



















Folgendes Programm erzeugt ein aequi'^alentes Listing auf detri Bildschirm: ; 

10 CLSrB=3 

15 PRINT^Dez Hex Z. Dez Hex Z. Dez Hex Z . " 

20 F0RA=0T0255 \ 

30 IFft<32THENflS=" "ELSEAJ=CHR$C A) 
40 ftl$=STR»Cfl) :Al»=RieHT$CAl»,LEN(Al$3-lJ 
50 IFLEN(Al*J<3THENftl»"STRING»(3-LEN(Al$).32)+Al$ 

60 Pll$=Pll*+" - " i 

70 A1=INTCA/16) tA2=AAND15 I 

80 IFAl<10THENRl»=f»lS+CHR»C48+ftl)ELSEAlt=fll$+CHR$C55+ftll > 

90 IFA2<10THENAlS=Rl$+CHR»t48+A2)ELSEAl»=Al$+CHR»C55+A2J ; 

100 A1$=A1*+"H "+M ' 

110 PRINT§INTCB/3)*40+CB-INTCB/3)»3J*13. : 

120 B»B+1 I 

130 C0L0UR3:PRINTMID$(fllS, 1 .3J : jCOLOURl s PRINTMIDtCAl* ,4.3) ; :C0L0UR6:PR , 
INTMIDi(Al$.7.3) : :C0L0UR2 t PRINTMIO»Cftl» , 10, 2) ; ; 

140 IFB<69THENNeXTA 

1 50 I F I NKE Yt = ""THEN150ELSEB=0 : CLS s GOTO 1 40 
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Anhang C: 



Dt lUEJrE 
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Verzeichnis der verftigbaren Colour-Genie-Software 

l.J HILFSPROGRflMME 

rOLOUR-COtlPILER: Dieses Programm ist extrerti wertvoll. Es bietet 
die Moglichkeit. Basicprogramme in Maschinenspracheprogramme zu 
iiberset zt en. 

Der wesentliche Vorteil : Ihr Programm lauft nach Compi I ierung 
c.a. 40 mat ('J schneller. 

Dies geschieht interahtiv, d.h. Basicprogramm, haschinen- 
programm und Compiler stehen gleichzeitig im Speicher. was ein 
sehr schnelles ftrbeiten ermoglicht, Dobei kbnnen c.a. 9.5 KByte 
Basicprogramm verarbeitet werden. Verzichtet man auf die 
hochauflosende GrafiU, steht noch mehr Speicher zur VerfUgung. 
Voraussetzung: Ihr COLOUR-QENIE MUSS flUF 32K RAM ERWEITERT 
SEIN. Die meisten Colour -Bas ic-Be fehl e werden vom 
Colour-Compiler unterstutzt . Die wesent I ichste EinschranHung 
ist, dap der Colour-Compiler nur Ganzzahlen [Integers) 
verarbeitet . 
Preis: 69.- DM 

COLOUR-MONITOR It Ein Maschinensprachemoni tor mit starhem 

Befehlssatz, z,B. Disassem I leren , Rsc i i/Hex -Dump . Bander 

I aden/schre i ben , Bytes suchen, Speicher edi t leren/verschieben/ 

relozieren, Hex/Dezima I -Umwandl ung u.a.m. 

Preis: 39.- DM 

COLOUR-ASSEMBLER: Mit diesera Programm konnen Maschinensprache- 

pro'gramme auT komfortable Weise entwickelt werden. Das 

Programmieren geschieht mit Z80-Mnemonics , Labels etc. 

Der Rssembler erzeugt dann das flaschinenspracheprogramm , das 

zur Probe auch direkt ausgefuhrt werden kann. 

Eine weitere Besonderheit des Rssemblers ist. dafJ der 

Rssembl er -Tex t im ganz normalen Basic-Modus erzeugt wird, 

so dap alle Bas ic-Bef ehl e wie EDIT, LLIST, CSAVE vom ftssembler 

ausgenutzt werden. 

Preis: f.S." DM 

SOUND-EDITOR (auch im Handbuch "Colour Basic leicht gelernt*' 
aufgelistet) : Ein niitzliches H 1 1 f sprogramm zur Programm i erung 
des PSe-ICs CSound-Chip) . Sie editieren die PSG-Register auf 
dem Bildschirm und der entsprechende Ton wird gleichzeitig 
ausgegeben. Abschliepend gibt das Programm alle PSG-Reg i s t er - 
inhalte in dezimaler Schreibweise aus , 
Preis: 25.- DM 

ZEICHEN-ED ITOR (auch im Handbuch "Colour Basic leicht gelernt" 
aufgelistet) : Dieses Programm ermoglicht es . 64 der 128 frei 
def inierbaren Zeichen auf dem Bildschirm uber s icht I ich zu 
editieren. Es konnen auch Grafiken, wie z,B eine Schreib- 
schrift. erstellt werden. ftbschl legend werden die definierten 
Zeichen in em Basicprogramm geschrieben, was diese fur den 
spateren Qebrauch oder zur Entwicklung eigener Programme wieder 
definiert. So wird die umstandliche Handhabung der Programm- 
ierung der def i nier baren Zeichen umgangen , 
96 Preis: 25 . - nri 



GRftFIK-EDITORt Werin Sxe Ihr Colour-Genie auf 32K RAM auf- 

gerustet haben, konnen Sie dieses Programm einsetzten, denn 

der "Graf iH-Editor" hat eine Lange von 26000 Bytes" 

Er bietet die Moglichkeit, Grafiken im FGR-Modus mit einer 

Vielzahl von leistungsstarken Kommandos zu kreieren. 

ftbschl legend wird em Basic-Programm erzeugt werden, das, 

eingebunden in ein eigenes Programm, das Bild blitzschnell 

wleder auf den Bildschirm bringt. Sie konnen also auch komplexe 

Grafiken sehr schnel I fert igstel len und sie hinterher beliebig 

verwenden. 

Preis: 69.- DM 

SHRPER: Die Handhabung des Basicbefehls "SHRPE" ist recht 
umstandl ich. Hier bringt der "Shaper" RbhilfeJ Hit wenigen 
Tastendriicken erzeugen Sie eine Figur, die abschl lepend 
im Foramt der "Shape-Table" abgespeichert wird. 
Preis: 25.- DM 

COLROT: Em sehr nutzliches Graf ikprogramm, fur alle die mit 
gro0en Texten Ruf merksamkei t erregen wollen Cz.B. im 
Schaufenster D . Colrot erzeugt Laufschriften mit bis zu 512 
Zeichen Lange, Titel und FufJschrift, Inversdarstel lung , 
Intermezzo u.v.a.m. 

Ein komfortabler Editor ermogl icht einfaches Rrbeiten. 
Preis: 69.- DM 

BRSICODE: Dieses Programm macht ihr Colour-Genie Basicode- 
kompatibel ' Basicode ist das Standard-Basic, m dem z.B. 
das WDR-Fernsehen Programme austrahlt. Eine Hardwareanderung 
ist nicht notig. 
Preis: 25.- DM 

PLOTTER: Plotter ist ein anspruchs vol les Mathemat ikprogramm , 
das beliebige FunKtionen zeichnet , Wertetabel len erstellt 
u . s .w . 
Preis: 39.- DM 

ZEICHENEDITOR+: Dieser Editor, in Maschinensprache geschrieben, 
ermogl icht es alle 128 Zeichen sehr schnel I und komfortabel 
zu editieren. Dabei gibt es sogar Befehle um Kreise zu 
zeichnen, Zeichen zu kopi eren/dupl iz i eren/rot leren/inver t i eren 
u . V . a . m . 
Preis: 39.- DM 

BRSIC+5: Dieses Programm erweitert das normale Basic um 5 
Befehle: Im Grafikmodus konnen beliebige Texte dargestetlt 
werden. Becht eckf I achen konnen gemalt werden, mit "SRVE" konnen 
Machinenspracheprogramme gesichert und mit "LORD" komfortabel 
geladen werden. Ferner steht ein E ingabebef ehl zur Verfugung, 
der an beliebige Speicherzel 1 en schreibt. 
Preis- 39.- DM 
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ZEICHENSftTZE : Dieses Programm I opt Sie den vorhandenen Zeichen- 

satz fur alle ASCI 1 -Zeichen wahlweise gegen einen von acht 

neuen. interessanten Zeichensatzen ersetzen. 

Fur dieses Programm mu0 Ihr Colour-Genie mit 32K RAM 

ausgerustet sein. 

Preis: 25.- DM 

SCREEN-PRINTER: CAuch in dem Buch "Das Colour-6enie-Buch 1" 
oufgel istet . ) F\uf dieses Programm haben die Besitzer des STAR- 
Druchers DP 510 bzw. DP 515 sicher gewartet ' 

Es ermoglicht es Ihnen, den Bildschirm jederzelt komplett auf 
Ihren Drucker auszugeben, egal ob Sie im F6R- Oder im LQR-Modus 
sind. Definierte und feste Qraf ikzeichen werden ebenTalls mit 
ausgedruckt. Auch fiir dieses Programm brauchen Sie 32H RftM und 
naturlich einen STAR OP 510 / OP 515 DrucKer. 
Preis: 39.- DM 
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2.) SPIEL- u. GRAFIKPROQRflntlE 

INVf=iSION AUS DEM WELTRAUM: Em Masch i nenspracheprogramm , das 

die Sound- u. Grafikmogl ichhei ten des Colour-Genies vol I 

ausnutzt . Ihre Piufgabe ist es . einen Pulk von Invasoren 

abzuwehren, der sich der Erde nahert . 

Die Invasoren werden dabei immer schnelVer und gef ahr V icher . 

Preis: 39.- DM 

PUNHTEJf=lGD: Bei diesem Spiel geht es darum, alle Punkte in 
einem Labyrint au f zusamme I n , bevor Sie von einem Wachter 
eingehclt werden. Schnelle Qrafik und Ton durch tlaschinen- 
sprache . 
Preis: 25.- Dh 

WURM: Unser derzeit schnellstes Act lon-Spiel , Ein Wurm kommt 
von oben den Bildschirm herab und v^rsucht Sie zu vernichten. 
Dabei hat er die Spinne, die Fl lege und die Ente als Heifer. 
Kein Spiel fur ruhige Stunden' 
Preis: 39.- Dh 

BREAK OUT: Bei diesem Video-Spiel mu© eine Mauer mit Ihrem Ball 
zerstort werden. Dabei konnen verschieden Schwi er igke] t sgrade 
vorgewaM t werden. Hohe Geschwindigkei t durch Maschinensprache- 
programmierung. 
Preis: 39.- DM 

DEMOPROGRAMM: Hiermit honnen Sie besser als mit der m i t Ihrem 
Colour-Genie z.Zt. mi tgel lef er ten engli5chen Deinokasset te die 
hog I ichkei ten Ihres Col our-Qenies demonst r leren . 
Preis: 25.- DM 

ANDROMEDA: Ein erstkl assiges dreidimens lonal es Wei t r aumspi el 
mit ansprechender Grafik. Feindliche Paumschiffe koinmen auf Sie 
zu; vernichten Sie diese, bevor sie Ihnen wertvolle Energie ab- 
gesaugt haben. Ist die Zeit abgelaufen. so eilt Ihnen Ihre 
Mutterbasis zu Hilfe; aber das Auftanken will auch gelernt 



'I '^eln, 



Preis: 39.- DM 

MAU-MAU: Endlich haben Sie einen Spielpart ner , der nicht wutend 
die Karten wegwirft, wenn er am verlieren ist. Dies durfte wohl 
aber auch selten der Fall sein, vielmehr wahrscheinl ich ist es , 
da^ Sie den Computer vor Wut ausschalten, da ihr Computer Dank 
einer her vor ragenden Taktik auf Sieg programmiert ist. 
tEr schummelt nicht i') Qespielt wird nach den ubVichen Begeln. 
Preis: 25.- DM 

HEKTIK: Stellen Sie sich vor, Sie waren in einem Neubau mit 6 
Geschossen. bei dem die Ebenen durch Leitern verbunden sind. 
Jetzt kommen Ihnen von oben Verfolger entgegen. Sie mufJen sich 
ihnen stellen, denn es gibt keinen Fluchtweg. Qraben Sie an 
strategisch wichtigen Stellen Locher in den Boden , urn so Ihre 
Verfolger auszuscha I t en . 
Preis: 39.- DM 



METEOR: Bin Super-Action-Spiel im Grafik-Modus Ihres Colour- 

Genies. Sie befinden sich in einem Meteor i tenfeld und werden 

von Meteoriten, Sternen und schiessenden Ufos bedrangt. 

Das Programm zeichnet sich durch sehr schnelle Qrafik und gute 

Toneffekte aus . 

Preis: 69.- DM 

MOTTEN; Bei dlesem Videospiel mu0en Sie Kolonnen von Motten 
bekompfen, die in gefahrlichen Sturzflugen onfliegen und dobei 
auch noch schiessen. 
Preis: 39.- DM 

PfiNIK: Ein Programm fiir 2 Spieler. Man mu0 versuchen, den 
Qegner einzumauern . Wohlbare Geschwindigkei t macht "Mouer" 
entweder zu einem Reaktions- oder zu einem St rategaespiel . 
Dos Programm konn wahlweise mit Joysticks Oder mit der Tastatur 
bedient werden. 
Preis: 25.- DM 

TAUSENOFU0: Hier sollen Sie einen Wurm so steuern, dap er nur 
Putter aber kein Gift fri(3t. Dazu kommen noch Kraftfutter und 
Gegengift, Ein sehr unterhal tsames Qeschickl ichkei tsspiel fur 
die ganze Familie. Bei Spielbeginn konnen viele verschiedene 
Geschwindigkei ten und Schwier igkei t sstuf en vorgewahlt werden. 
Preis: 39.- DM 

COLOUR-SCHflCH : Oetzt konnen Sie gegen Ihr Colour-Qenie auch 
Schach spielen. Col our-Schach bietet 7 verschiedene Spiel - 
starken, Aufzeichnung eines laufenden Spieles auf Kassette. 
Rndern von Stellungen, einen Demonst r at lonsmodus und anderes 
mehr . Die Figuren werden auf ansprechende Weise grafisch 
dargestel 1 1 . 
Preis: 69.- DM 

EXNIMROID: Ein DenKspiel, abgeleitet vom behannten Nim-Spiel . 
Es geht darum, aus mehreren Haufchen den letzten Spielstein 
zu nehmen . Sie spielen gegen den Computer. 
Preis: 25.- DM 

KINGS; Eine Regier ungss i mul at ion , bei der Sie fur eine Dauer 
von 8 Jahren eine Insel regieren soHen. Dabei kann nur der 
kluge Einsatz aller Faktoren zu einem Erfolg fuhren. Haben 
Sie Ihre Amtszeit uberlebt, werden Ihre Taten ausgewerted, und 
Sie konnen dann auch weiter regieren. 
Preis: 25.- DM 

MAUSI; Ein lustiges Videospiel, bei dem Sie als Maus im 
stromendem Regen Kase hoien sollen, ohne naC zu werden. 
Preis: 25.- DM 
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Mf=!hPFMPiN: fihnlich wie unser Spiel "Punktejagd" . nur dap Sie 
hier von mehreren Qespenstern verfolgt werden, die Sie unter 
bestimmten Bedmgungen jedoch auch fressen honnen. 
Preis; 39.- DM 

COLOUR-KONQ: Das absolute Videospiel t Retten Sie Ihre 
Freundin vor dem wilden Rffen. Mehrere Ebenen. super Grafik 
und husih. Auf dem Band finden Sie Versionen fur 32K und 
16K RAM 
Preis: 69.- DM 

PANZERKAMPF: Ein Spiel fur zwe i Personen COOYSTICHS und 32K R(=tM 
er forder I ich) . Liefern Sie sich mit Ihrem Qegner spannende 
Panzerschl achten i Das Programm verfugt uber 3 verschiedene 
Gelande mit Minen etc. 
Preis: 69.- DM 

EIS: Ein spannendes, zugleich jedoch auch recht schwieriges 
Actionspiel rait strategischen Elementen. Sie befinden sich in 
einem Kuhlraum und mupen Eisblocke so ans Rutschen bnngen, da0 
die gefahrlichen Schneemonster vernichtet werden. 
Preis: 39.- DM 

EAGLE: Vernichten Sie verschiedene Schwodronen von Vogeln. 
bevor Sie versuchen das grope Mutterschiff zu zerstoren. 
Preis: 39.- DM 

GRME of LIFE: Dieses bekannte Programm simuliert das Wachstum 
von Bakter lenhul turen . Die Regeln werden im Programm erklart 
und einige mteressante Figuren sind fest abgespeicher t . 
Preis: 25.- DM 

SRUG' Ein lustiges Videospiel, bei dem Sie aus einem 

unter 1 rdischen Labyrint Termiten ansaugen mupen, wobei Sie sich 

vor giftigen, roten Termiten huten mupen. 

Das Spiet kann auch mit Joysticks gesteuert werden. 

Prexs: 39.- DTI 

EnREVERSIC: Spielen Sie Reversi gegen Ihr Colour-Genie i 
Dabei kann zwischen mehreren Spielstufen gewahlt werden. 
Das Spielbrett wird auf ansprechende Weise graphisch 

dar gestel I t . 
Preis : 39. - DM 

BRNG-BPiNG: 2wei Cowboys begegnen sich in der Prarie und liefern 
sich ein erbittertes Duel I. Fur dieses Spiel sind Joysticks 

er forder I ich . 
Prexs- 39.- DM 

NETZO. Versuchen Sie mit Ihrem Pinsel alle Flachen auszumalen. 

ohne \,on Ihren Gegnern erwischt zu werden. 
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DEATH-TRAP, eir\ dreidimens ionales Graf ik-Abenteuerspiel 
CAdventureJ : 

Ein Programm zum Mahnsinnlg werderv' Sie befinden sich in einem 
Labyrinth mit iiber 1100 Raumen, in dem es von gefahrlichen 
Einwohnern und Gegenstanden wimmelt, Finden Sie die wichtigen 
Gegenstande und wenden Sie sie richtig an, urn aus dem Labyrinth 
zu entkoitimen. Zwel Vorraussetzungen miissen allerdings erfullt 
5ein; Ihr Colour-Qenie mup 32K Rflli haben, und Sie miissen 
elementare Engl ischUenntnisse besitzen, da die Sie Kommandos in 
Form von englischen Satzen eingeben. 
Pre is: 69.- DM 

TCS-CHOPPER: Die GeschmacHer sind verschieden - aber dies ist 
wohl das beste Videospiel , das es z.Zt. fur das Colour-Genie 
gibt I Dreizehn Ihrer Kameraden sind in einem von vier riesigen 
Labyrinthen ausgesetzt worden. Versuchen Sie nun, diese mit 
Ihretn Hubschrauber zu retten' Aber Vorsicht, Ihre Freunde 
Merden scharf bewacht ' 
32H RAM sind auch hier notwendig. 
Preis: 69,- DM 

DOPPEL-WURM; Vielleicht kennen Sie unser beliebtes Spiel 
"Tausendfup", "Doppel -Wurm" ist sehr ahnlich, allerdings 
splelen hier zwel Spieler gegeneinander , was die Spannung 
naturlich erhoht . Achtung: Nur fur 3oyst ich-Besitzer ' 
Preis: 38.- DM 

MADTREE; Ein schwieriges Videospiel: Sie sind eine fleipige 
Biene und miissen eine Reihe von Blumen standig bestauben, damit 
diese nicht eingehen. Doch diese Blumen sind undankbar und 
gefahrden Sie. 
Preis: 33.- DM 

DIG-BOY: In Ihrem unter irdischen Reich kampfen Sie gegen 

Drachen und andere Untiere. Locken Sie diese unter einen 

der wackligen Felsen, um sie zu zerschmettern. 

Dieses Spiel ist sehr empf ehlensMert , da es eine Menge 

Abwechslung bietet. 

Preis: 39.- DM 

EMPIRE: Ftir alle. die nicht nur reine Aktion wollen, ist 
"Empire" das ideate Spiel. Dieses Spiel kann mit bis zu sechs 
Spielern gleichzeitig gespielt werden, der Computer spielt 
ebenfalls mit. Oeder Spieler hat ein kleines Reich, das nun 
durch Handel, Politik, Krieg u.s.w. zu Wohlstand kommen soil. 
Dabei stehen Sie mit den anderen Nationen stSndig in Beziehung, 
sei es durch Handel Oder durch krieg. 

Ansprechende Qrafik macht das Programm noch interessanter . 
Ihr Colour-Qenie mup fur "Empire" auf 32K RAM aufgeriistet sein. 
Preis; 69.- DM 
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3 . ) MUS I K PROGRAMME 

MUSIK: Dieses Programn spiel t f estprogrammierte MusiHstiicke 
Hvit verblUf fender Qualitat. 
Preis: 25.- DM 

ORGEL: Spielen Sie Orgel auf Ihrem Colour-Genie ' 
Ihnen stehen zwei Manuale, einstel I bares Delay und sogar 
eine Schlagzeugbegleitung zur Seite. 
PreiSJ 25.- DM 

COLOUR-SYNTHESIZERs Ein Programm. das man gesehen haben iiup, urn 
es Uberhaupt fur mbgl ich zu halten. Der Colour-Synthesizer 
macht aus Ihrem Colour-Qenie einen vollwertigen 3-Kanal 
Synthesizer mit VCO, VCft. HUllkurve, Schlagzeug. . . 
Acht Einstel lungen aller Regler honnen vorprogrammiert , auf 
TastendrucH abgerufen und auf Band gesichert Merden. 
Verbluffend ist auch die graphische DarstelLung. 
Preis: 69.- DM 

COMPOSER: Mit diesem Programm konnen Sie sehr einfach eigene 

Musihstucke komponieren. Noten. Pausenzeichen u.s.w. werden 

grafisch dargestellt> konnen editlert und auf Band gespeichert 

werden, 

Preis: 39.- DM 



4, J LERNPROGRRMME Cz.Zt. nur eines, demnachst mehr): 

MATHEMATIK-LERNPROGRRMM: Interessant fUr Kinder bis in's 
Grundschulal ter . Wahlweise konnen die vier Grundrechenarten 
getibt werden, wobei man zwischen verschiedenen Schwierigkeits- 
graden wahlen kann. Lustige grafische Gestaltung sorgt dafur, 
da0 das Uben Spass macht . 
Preis: 25.- DM 



*** STAND DER TCS-SOFTWAREL ISTE . COLOUR-GENIE , VOM 12.8.1983 »«* 

In Vorbereitung: Colour-Text, Lernprogramme fur Kinder, 
verbesserter Maschinensprache-Monitor und viele Interessante 
Sp i e I e I 
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BESTELLFQRMULPIR 

2ur Bestellung von Col our-Genie-Progr amtrieri honnen Sie dieses 
Formular benutzten. Schicken Sie dieses an Ihren GENIE-Handler 
Oder direht an TCS Computer GmbH 

Kolnstrape 4 

5205 St. August in 2 

Tel . : 02241 / 28071 

Bankver b i ndung : 
Roif reisenbanh Menden BLZ 37069507 Konto-Nr. 1525 

Der Versand erfolgt per Nachnahne Oder Vorauskasse auf obiges 
Konto Cdies natUrlich nicht , Menn Sie bei Ihrem Handler 
bestel lenJ . 



Ich bitte urn Zusendung folgender TCS Colour-Genie-Programme i 



ftnzahl : Name des Programms ; Preis/DM : Gesamt 



Gesamt : Oh 

Heine ftdresse ist; 

Name : . • 

Strape: , 

Ort : 



Datum; Unterschr i ft : 
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